source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/parfpos.F90 @ 3847

Last change on this file since 3847 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • 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
File size: 3.2 KB
Line 
1MODULE PARFPOS
2
3USE PARKIND1  ,ONLY : JPIM
4
5USE PARDIM
6
7IMPLICIT NONE
8
9SAVE
10
11!     ------------------------------------------------------------------
12
13! === basic dimensions for Full POST-PROCESSING ===
14
15!     JPOSDOM : Maximum number of horizontal (sub)domains
16!     JPOSLEN : Maximum length of a (sub)domain name
17!     JPOSLIS : Maximum number of groups of subdomains
18!     JPOSDIR : Maximum length of the path (or prefix) for the output files
19!     JPOSLE  : Maximum number of eta levels on the output subdomain
20!     JPOSGL  : Maximum number of latitude rows of the output gaussian grid
21
22!     JPOSSCVA: Maximum number of post-processable passive scalars
23!     JPOSPHY : Maximum number of physical fields
24!     JPOSSGP : Maximum number of surface gridpoint fields
25!     JPOSCFU : Maximum number of cumulated fluxes
26!     JPOSXFU : Maximum number of instantaneous fluxes
27!     JPOS3P  : Maximum number of pp. pressure levels
28!     JPOS3H  : Maximum number of pp. height (above orography) levels
29!     JPOS3TH : Maximum number of pp. potential temperature levels
30!     JPOS3PV : Maximum number of pp. potential vorticity levels
31!     JPOS3S  : Maximum number of pp. eta levels
32!     JPOSSCVA: Maximum number of passive scalars
33!     JPOSVX2 : Maximum number of free gp/sp upper air fields or extra surface fields
34!     JPOSFSU : Maximum number of free gp/sp surface fields
35!     JPOS3DF : Maximum number of 3D dynamic fields
36!     JPOS2DF : Maximum number of 2D dynamic fields
37!     JPOSDYN : Maximum number of dynamic fields
38!     JPOSGHG : Maximum number of post-processable greenhouse gases
39!     JPOSTRAC : Maximum number of post-processable tracers (used for diagnostics only)
40!     JPOSGRG : Maximum number of post-processable reactive gases
41!     JPOSAERO: Maximum number of post-processable aerosols
42
43INTEGER(KIND=JPIM), PARAMETER :: JPOSDOM=15
44INTEGER(KIND=JPIM), PARAMETER :: JPOSLEN=10
45INTEGER(KIND=JPIM), PARAMETER :: JPOSLIS=10
46INTEGER(KIND=JPIM), PARAMETER :: JPOSDIR=180
47INTEGER(KIND=JPIM), PARAMETER :: JPOSLE=JPMXLE
48INTEGER(KIND=JPIM), PARAMETER :: JPOSGL=JPMXGL
49
50INTEGER(KIND=JPIM), PARAMETER :: JPOSCFU=63
51INTEGER(KIND=JPIM), PARAMETER :: JPOSXFU=63
52INTEGER(KIND=JPIM), PARAMETER :: JPOS3P=75
53INTEGER(KIND=JPIM), PARAMETER :: JPOS3H=127
54INTEGER(KIND=JPIM), PARAMETER :: JPOS3TH=75
55INTEGER(KIND=JPIM), PARAMETER :: JPOS3PV=75
56INTEGER(KIND=JPIM), PARAMETER :: JPOS3S=JPOSLE
57INTEGER(KIND=JPIM), PARAMETER :: JPOSSCVA=5
58INTEGER(KIND=JPIM), PARAMETER :: JPOSGHG=3
59INTEGER(KIND=JPIM), PARAMETER :: JPOSTRAC=2
60INTEGER(KIND=JPIM), PARAMETER :: JPOSGRG=5
61INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO=12
62INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO2=2*JPOSAERO
63INTEGER(KIND=JPIM), PARAMETER :: JPOSVX2=70
64! 15 + 2 (Non-Hydro) + 4 (Modis-Albedo) + 3 (ocean T)
65INTEGER(KIND=JPIM), PARAMETER :: JPOSFSU=24
66INTEGER(KIND=JPIM), PARAMETER :: JPOSSGP=157+JPOSVX2+JPOSFSU
67INTEGER(KIND=JPIM), PARAMETER :: JPOSPHY=JPOSSGP+JPOSCFU+JPOSXFU
68INTEGER(KIND=JPIM), PARAMETER :: &
69 & JPOS3DF=63+JPOSSCVA+JPOSVX2+JPOSAERO+JPOSGHG+JPOSGRG+JPOSTRAC
70INTEGER(KIND=JPIM), PARAMETER :: JPOS2DF=63+JPOSFSU+JPOSAERO2
71INTEGER(KIND=JPIM), PARAMETER :: JPOSDYN=JPOS3DF+JPOS2DF
72
73!     ------------------------------------------------------------------
74END MODULE PARFPOS
Note: See TracBrowser for help on using the repository browser.