yomdphy.F90

Go to the documentation of this file.

MODULE yomdphy

USE parkind1  ,ONLY : jpim

IMPLICIT NONE

SAVE

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

!     DIMENSION DES TABLEAUX POINT DE GRILLE PHYSIQUE

!     NVXP : number of variables in the generic EXTRP.
!     NVXP2: number of variables in the generic XTRP2.

!     NCXP : number of levels in EXTRP
!     NCSI : number of sea-ice levels
!     NCSNEC: number of snow levels in EC physics (specific for ECMWF) 
!     NTILES: number of surface tiles

!     NVEXTR : number of variables in the generic VEXTRA (extra-fields)
!     NVEXTRDYN : number of extra-fields comming from the dynamics
!     NVXTR2 : number of variables in the generic VEXTR2

!     NCEXTR : number of levels in the generic VEXTRA

!     NTSL : nombre de types de sols nus.
!     NTSV : nombre de types de vegetations.
!     NTOZ1D: 1 si representation 1D des NVCLIS variables , 0 sinon
!     NTOZ2D: 1 si representation 2D des NVCLIS variables , 0 sinon
!     NTOZ3D: 1 si representation 3D des NVCLIS variables , 0 sinon
!     NLOA : nombre de longueurs d'ondes pour le spectre d'albedo.
!     NLOE : nombre de longueurs d'ondes pour le spectre d'emissivite.
!     NTSSG : number of surface temperatures for subgrid diagnostics

!     NCHAC: nombre de champs a accumuler.
!     NCHIN: nombre de champs instantanes.
!     NSIRA: nombre d'intervales spectraux pour les diagnostiques de
!            flux radiatif a p=0 et p=ps.

!     NVTEND: number of tendencies used in 2.order scheme

!     LTPROF: .T. if more than 1 vertical layer in deep soil

INTEGER(KIND=JPIM) :: nvxp
INTEGER(KIND=JPIM) :: nvxp2
INTEGER(KIND=JPIM) :: ncxp
INTEGER(KIND=JPIM) :: ncsi
INTEGER(KIND=JPIM) :: ncsnec
INTEGER(KIND=JPIM) :: ntiles
INTEGER(KIND=JPIM) :: ntsl
INTEGER(KIND=JPIM) :: nvextr
INTEGER(KIND=JPIM) :: nvextrdyn
INTEGER(KIND=JPIM) :: nvxtr2
INTEGER(KIND=JPIM) :: ncextr
INTEGER(KIND=JPIM) :: nvclis
INTEGER(KIND=JPIM) :: ntoz1d
INTEGER(KIND=JPIM) :: ntoz2d
INTEGER(KIND=JPIM) :: ntoz3d
INTEGER(KIND=JPIM) :: ntssg
INTEGER(KIND=JPIM) :: ntvg
INTEGER(KIND=JPIM) :: nloa
INTEGER(KIND=JPIM) :: nloe
INTEGER(KIND=JPIM) :: nchac
INTEGER(KIND=JPIM) :: nchin
INTEGER(KIND=JPIM) :: nsira
INTEGER(KIND=JPIM) :: nvtend
LOGICAL            :: ltprof
!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(ltprof,ncextr,nchac,nchin,ncsi,ncsnec,ncxp,nloa,nloe,nsira,ntiles,ntoz1d,ntoz2d,ntoz3d,ntsl,ntssg)
!$OMP THREADPRIVATE(ntvg,nvclis,nvextr,nvextrdyn,nvtend,nvxp,nvxp2,nvxtr2)
END MODULE yomdphy