source: LMDZ6/trunk/libf/phylmd/ecrad/ifsrrtm/yomdimv.F90 @ 5165

Last change on this file since 5165 was 4773, checked in by idelkadi, 11 months ago
  • Update of Ecrad in LMDZ The same organization of the Ecrad offline version is retained in order to facilitate the updating of Ecrad in LMDZ and the comparison between online and offline results. version 1.6.1 of Ecrad (https://github.com/lguez/ecrad.git)
  • Implementation of the double call of Ecrad in LMDZ


File size: 1.1 KB
Line 
1MODULE YOMDIMV
2
3USE PARKIND1  ,ONLY : JPIM
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10
11TYPE :: TDIMV
12
13!*    Dimensions of model working arrays
14
15! === VERTICAL RESOLUTION =====================================================
16
17! NFLEVG : number of levels in grid point space
18! NFLEVL : number of levels in Fourier and Legendre space
19! NFLEVLMX : maximum NFLEVL among all PEs
20! NFLSUR : over dimensioning of NFLEVL for technical reasons, always odd
21! NFLSUL : number of additional levels for semi-lagrangian
22! NFLSA  = 1    -NFLSUL
23! NFLEN  = NFLEVG+NFLSUL
24! NIOLEVG : number of levels in the whole atmosphere (used for I/Os and definitions) ;
25!           NFLEVG can be a truncation of NIOLEVG
26
27INTEGER(KIND=JPIM) :: NFLEVG
28INTEGER(KIND=JPIM) :: NFLEVL
29INTEGER(KIND=JPIM) :: NFLEVLMX
30INTEGER(KIND=JPIM) :: NFLSUR
31INTEGER(KIND=JPIM) :: NFLSUL
32INTEGER(KIND=JPIM) :: NFLSA
33INTEGER(KIND=JPIM) :: NFLEN
34INTEGER(KIND=JPIM) :: NFLEVSF
35INTEGER(KIND=JPIM) :: NIOLEVG
36
37END TYPE TDIMV
38
39TYPE(TDIMV), POINTER :: YRDIMV => NULL()
40
41!     ------------------------------------------------------------------
42
43END MODULE YOMDIMV
Note: See TracBrowser for help on using the repository browser.