source: LMDZ6/trunk/libf/phylmd/rrtm/parfpos.F90 @ 3006

MODULE PARFPOS

USE PARKIND1  ,ONLY : JPIM

USE PARDIM

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------

! === basic dimensions for Full POST-PROCESSING ===

!     JPOSDOM : Maximum number of horizontal (sub)domains
!     JPOSLEN : Maximum length of a (sub)domain name
!     JPOSLIS : Maximum number of groups of subdomains
!     JPOSDIR : Maximum length of the path (or prefix) for the output files
!     JPOSLE  : Maximum number of eta levels on the output subdomain
!     JPOSGL  : Maximum number of latitude rows of the output gaussian grid

!     JPOSSCVA: Maximum number of post-processable passive scalars
!     JPOSPHY : Maximum number of physical fields
!     JPOSSGP : Maximum number of surface gridpoint fields
!     JPOSCFU : Maximum number of cumulated fluxes
!     JPOSXFU : Maximum number of instantaneous fluxes
!     JPOS3P  : Maximum number of pp. pressure levels
!     JPOS3H  : Maximum number of pp. height (above orography) levels
!     JPOS3TH : Maximum number of pp. potential temperature levels
!     JPOS3PV : Maximum number of pp. potential vorticity levels
!     JPOS3S  : Maximum number of pp. eta levels
!     JPOSSCVA: Maximum number of passive scalars
!     JPOSVX2 : Maximum number of free gp/sp upper air fields or extra surface fields
!     JPOSFSU : Maximum number of free gp/sp surface fields 
!     JPOS3DF : Maximum number of 3D dynamic fields
!     JPOS2DF : Maximum number of 2D dynamic fields
!     JPOSDYN : Maximum number of dynamic fields 
!     JPOSGHG : Maximum number of post-processable greenhouse gases
!     JPOSTRAC : Maximum number of post-processable tracers (used for diagnostics only)
!     JPOSGRG : Maximum number of post-processable reactive gases
!     JPOSAERO: Maximum number of post-processable aerosols

INTEGER(KIND=JPIM), PARAMETER :: JPOSDOM=15
INTEGER(KIND=JPIM), PARAMETER :: JPOSLEN=10
INTEGER(KIND=JPIM), PARAMETER :: JPOSLIS=10
INTEGER(KIND=JPIM), PARAMETER :: JPOSDIR=180
INTEGER(KIND=JPIM), PARAMETER :: JPOSLE=JPMXLE
INTEGER(KIND=JPIM), PARAMETER :: JPOSGL=JPMXGL

INTEGER(KIND=JPIM), PARAMETER :: JPOSCFU=63
INTEGER(KIND=JPIM), PARAMETER :: JPOSXFU=63
INTEGER(KIND=JPIM), PARAMETER :: JPOS3P=75
INTEGER(KIND=JPIM), PARAMETER :: JPOS3H=127
INTEGER(KIND=JPIM), PARAMETER :: JPOS3TH=75
INTEGER(KIND=JPIM), PARAMETER :: JPOS3PV=75
INTEGER(KIND=JPIM), PARAMETER :: JPOS3S=JPOSLE
INTEGER(KIND=JPIM), PARAMETER :: JPOSSCVA=5
INTEGER(KIND=JPIM), PARAMETER :: JPOSGHG=3
INTEGER(KIND=JPIM), PARAMETER :: JPOSTRAC=2
INTEGER(KIND=JPIM), PARAMETER :: JPOSGRG=5
INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO=12
INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO2=2*JPOSAERO
INTEGER(KIND=JPIM), PARAMETER :: JPOSVX2=70
! 15 + 2 (Non-Hydro) + 4 (Modis-Albedo) + 3 (ocean T)
INTEGER(KIND=JPIM), PARAMETER :: JPOSFSU=24
INTEGER(KIND=JPIM), PARAMETER :: JPOSSGP=157+JPOSVX2+JPOSFSU
INTEGER(KIND=JPIM), PARAMETER :: JPOSPHY=JPOSSGP+JPOSCFU+JPOSXFU
INTEGER(KIND=JPIM), PARAMETER :: &
 & JPOS3DF=63+JPOSSCVA+JPOSVX2+JPOSAERO+JPOSGHG+JPOSGRG+JPOSTRAC
INTEGER(KIND=JPIM), PARAMETER :: JPOS2DF=63+JPOSFSU+JPOSAERO2
INTEGER(KIND=JPIM), PARAMETER :: JPOSDYN=JPOS3DF+JPOS2DF

!     ------------------------------------------------------------------
END MODULE PARFPOS