48 character(len=64),
parameter :: thisroutine =
'sico_end'
50 close(unit=12, status=
'keep')
52 close(unit=13, status=
'keep')
55 close(unit=14, status=
'keep')
56 deallocate(lambda_core, phi_core, x_core, y_core)
59 close(unit=41, status=
'keep')
60 close(unit=42, status=
'keep')
61 close(unit=43, status=
'keep')
62 close(unit=44, status=
'keep')
63 close(unit=45, status=
'keep')
64 close(unit=46, status=
'keep')
65 close(unit=47, status=
'keep')
66 close(unit=48, status=
'keep')
67 close(unit=49, status=
'keep')
68 close(unit=50, status=
'keep')
69 deallocate(lambda_surf, phi_surf, x_surf, y_surf)
72 close(unit=15, status=
'keep')
75 #if ( (TSURFACE==6) && (ACCSURFACE==6) )
76 call
check( nf90_close(ncid_temp_precip), thisroutine )
81 #if (CALCZS==4 || MARGIN==3)
82 call lis_finalize(ierr)
86 write(unit=6, fmt=
'(a)')
' '
87 write(unit=6, fmt=
'(a)')
' '
88 write(unit=6, fmt=
'(a)') &
89 ' * * * sicopolis.F90 r e a d y * * *'
90 write(unit=6, fmt=
'(a)')
' '
91 write(unit=6, fmt=
'(a)')
' '