source: LMDZ6/trunk/libf/phylmd/dimsoil_mod_h.f90 @ 5273

Last change on this file since 5273 was 5273, checked in by abarral, 35 hours ago

Turn dimsoil.h into a module
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 328 bytes
RevLine 
[5273]1MODULE dimsoil_mod_h
2  IMPLICIT NONE; PRIVATE
3  PUBLIC nsoilmx, nsnowmx, nsismx
[3792]4
[5273]5  INTEGER nsoilmx
6  PARAMETER (nsoilmx = 11)
[3792]7
[5273]8  ! For Inlandsis, Etienne Vignon:
9  INTEGER nsnowmx
10  PARAMETER (nsnowmx = 30)
[3792]11
[5273]12  INTEGER nsismx
13  PARAMETER (nsismx = 41)
14  ! nsismx should be equal to nsoilmx+nsnowmx
15END MODULE dimsoil_mod_h
[3792]16
17
18
19
20
[5273]21
Note: See TracBrowser for help on using the repository browser.