parfpos.F90

Go to the documentation of this file.

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