7 !! Ending of SICOPOLIS.
11 !! Copyright 2009-2013 Ralf Greve
15 !! This file is part of SICOPOLIS.
17 !! SICOPOLIS is free software: you can redistribute it and/or modify
18 !! it under the terms of the GNU General Public License as published by
19 !! the Free Software Foundation, either version 3 of the License, or
20 !! (at your option) any later version.
22 !! SICOPOLIS is distributed in the hope that it will be useful,
23 !! but WITHOUT ANY WARRANTY; without even the implied warranty of
24 !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 !! GNU General Public License for more details.
27 !! You should have received a copy of the GNU General Public License
28 !! along with SICOPOLIS. If not, see <http://www.gnu.org/licenses/>.
30 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
33 !> Ending of SICOPOLIS.
34 !<------------------------------------------------------------------------------
47 close(12, status=
'keep')
49 close(13, status=
'keep')
52 close(14, status=
'keep')
53 deallocate(lambda_core, phi_core, x_core, y_core)
56 close(41, status=
'keep')
57 close(42, status=
'keep')
58 close(43, status=
'keep')
59 close(44, status=
'keep')
60 close(45, status=
'keep')
61 close(46, status=
'keep')
62 close(47, status=
'keep')
63 close(48, status=
'keep')
64 close(49, status=
'keep')
65 close(50, status=
'keep')
66 deallocate(lambda_surf, phi_surf, x_surf, y_surf)
69 close(15, status=
'keep')
72 #if ( (TSURFACE==6) && (ACCSURFACE==6) )
73 call
check( nf90_close(ncid_temp_precip) )
78 #if (CALCZS==4 || MARGIN==3)
79 call lis_finalize(ierr)
86 ' * * * sicopolis.F90 r e a d y * * *'