parfpos.F90

Go to the documentation of this file.

MODULE parfpos

#include "tsmbkind.h"

USE pardim


IMPLICIT NONE

SAVE

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

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

!     JPOSDOM : Maximum number of horizontal (sub)domains
!     JPOSFRQ : Maximum number of output frequencies
!     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
!     JPOS3DF : Maximum number of specific 3D dynamic fields
!     JPOSSCVA: Maximum number of post-processable passive scalars
!     JPOS2DF : Maximum number of specific 2D dynamic fields
!     JPOSPHY : Maximum number of surface 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
!     JPOSVSO : Maximum number of climatologic fields of output format


integer_m, PARAMETER :: jposdom=15
integer_m, PARAMETER :: jposfrq=10
integer_m, PARAMETER :: jposlen=10
integer_m, PARAMETER :: jposlis=10
integer_m, PARAMETER :: jposdir=180
integer_m, PARAMETER :: jposle=jpmxle
integer_m, PARAMETER :: jposgl=jpmxgl
integer_m, PARAMETER :: jpos3df=63
integer_m, PARAMETER :: jpos2df=15
integer_m, PARAMETER :: jposphy=127
integer_m, PARAMETER :: jposcfu=63
integer_m, PARAMETER :: jposxfu=63
integer_m, PARAMETER :: jpos3p=31
integer_m, PARAMETER :: jpos3h=127
integer_m, PARAMETER :: jpos3th=15
integer_m, PARAMETER :: jpos3pv=15
integer_m, PARAMETER :: jpos3s=jposle
integer_m, PARAMETER :: jposvso=31
integer_m, PARAMETER :: jposscva=3
!     ------------------------------------------------------------------
END MODULE parfpos