49 character(len=64),
parameter :: thisroutine =
'sico_end'
51 close(unit=12, status=
'keep')
53 close(unit=13, status=
'keep')
56 close(unit=14, status=
'keep')
57 deallocate(lambda_core, phi_core, x_core, y_core)
60 close(unit=41, status=
'keep')
61 close(unit=42, status=
'keep')
62 close(unit=43, status=
'keep')
63 close(unit=44, status=
'keep')
64 close(unit=45, status=
'keep')
65 close(unit=46, status=
'keep')
66 close(unit=47, status=
'keep')
67 close(unit=48, status=
'keep')
68 close(unit=49, status=
'keep')
69 close(unit=50, status=
'keep')
70 deallocate(lambda_surf, phi_surf, x_surf, y_surf)
74 close(unit=15, status=
'keep')
78 #if ((TSURFACE==6) && (ACCSURFACE==6))
79 call
check( nf90_close(ncid_temp_precip), thisroutine )
84 #if (CALCZS==4 || MARGIN==3)
85 call lis_finalize(ierr)
89 write(unit=6, fmt=
'(a)')
' '
90 write(unit=6, fmt=
'(a)')
' '
91 write(unit=6, fmt=
'(a)') &
92 ' * * * sicopolis.F90 r e a d y * * *'
93 write(unit=6, fmt=
'(a)')
' '
94 write(unit=6, fmt=
'(a)')
' '
subroutine sico_end()
Ending of SICOPOLIS.
Declarations of kind types for SICOPOLIS.
subroutine check(status, ch_calling_routine)
NetCDF error capturing.
Declarations of global variables for SICOPOLIS (for the ANT domain).
Declarations of global variables for SICOPOLIS.