Last change
on this file since 4613 was
2089,
checked in by Laurent Fairhead, 10 years ago
|
Inclusion de la physique de MAR
Integration of MAR physics
|
File size:
678 bytes
|
Line | |
---|
1 | MODULE PARDIM |
---|
2 | |
---|
3 | |
---|
4 | #include "tsmbkind.h" |
---|
5 | |
---|
6 | IMPLICIT NONE |
---|
7 | |
---|
8 | SAVE |
---|
9 | |
---|
10 | ! ------------------------------------------------------------------ |
---|
11 | |
---|
12 | |
---|
13 | ! JPMXLE : MAXIMUM NUMBER OF LEVELS |
---|
14 | ! JPMXGL : MAXIMUM NUMBER OF GAUSSIAN LATITUDES |
---|
15 | |
---|
16 | ! JPCSS : MAXIMUM NUMBER OF LEVELS IN SOIL |
---|
17 | |
---|
18 | ! JPFPPYX : Maximum number of fields in catalogue cilipdy |
---|
19 | |
---|
20 | ! JPNULNAM : Fortran unit number used for namelist reading |
---|
21 | |
---|
22 | INTEGER_M, PARAMETER :: JPMXLE=200 |
---|
23 | INTEGER_M, PARAMETER :: JPMXGL=1001 |
---|
24 | INTEGER_M, PARAMETER :: JPCSS=5 |
---|
25 | INTEGER_M, PARAMETER :: JPFPPYX=17 |
---|
26 | INTEGER_M, PARAMETER :: JPNULNAM=4 |
---|
27 | |
---|
28 | ! ------------------------------------------------------------------ |
---|
29 | END MODULE PARDIM |
---|
Note: See
TracBrowser
for help on using the repository browser.