source: LMDZ6/branches/Amaury_posttrusting/libf/phylmd/dimsoil_mod_h.f90

Last change on this file was 5273, checked in by abarral, 4 weeks 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
Line 
1MODULE dimsoil_mod_h
2  IMPLICIT NONE; PRIVATE
3  PUBLIC nsoilmx, nsnowmx, nsismx
4
5  INTEGER nsoilmx
6  PARAMETER (nsoilmx = 11)
7
8  ! For Inlandsis, Etienne Vignon:
9  INTEGER nsnowmx
10  PARAMETER (nsnowmx = 30)
11
12  INTEGER nsismx
13  PARAMETER (nsismx = 41)
14  ! nsismx should be equal to nsoilmx+nsnowmx
15END MODULE dimsoil_mod_h
16
17
18
19
20
21
Note: See TracBrowser for help on using the repository browser.