| [3331] | 1 | MODULE YOMDPHY |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | |
|---|
| 11 | ! DIMENSION DES TABLEAUX POINT DE GRILLE PHYSIQUE |
|---|
| 12 | |
|---|
| 13 | ! NVXP : number of variables in the generic EXTRP. |
|---|
| 14 | ! NVXP2: number of variables in the generic XTRP2. |
|---|
| 15 | |
|---|
| 16 | ! NCXP : number of levels in EXTRP |
|---|
| 17 | ! NCSI : number of sea-ice levels |
|---|
| 18 | ! NCSNEC: number of snow levels in EC physics (specific for ECMWF) |
|---|
| 19 | ! NTILES: number of surface tiles |
|---|
| 20 | |
|---|
| 21 | ! NVEXTR : number of variables in the generic VEXTRA (extra-fields) |
|---|
| 22 | ! NVEXTRDYN : number of extra-fields comming from the dynamics |
|---|
| 23 | ! NVXTR2 : number of variables in the generic VEXTR2 |
|---|
| 24 | |
|---|
| 25 | ! NCEXTR : number of levels in the generic VEXTRA |
|---|
| 26 | |
|---|
| 27 | ! NTSL : nombre de types de sols nus. |
|---|
| 28 | ! NTSV : nombre de types de vegetations. |
|---|
| 29 | ! NTOZ1D: 1 si representation 1D des NVCLIS variables , 0 sinon |
|---|
| 30 | ! NTOZ2D: 1 si representation 2D des NVCLIS variables , 0 sinon |
|---|
| 31 | ! NTOZ3D: 1 si representation 3D des NVCLIS variables , 0 sinon |
|---|
| 32 | ! NLOA : nombre de longueurs d'ondes pour le spectre d'albedo. |
|---|
| 33 | ! NLOE : nombre de longueurs d'ondes pour le spectre d'emissivite. |
|---|
| 34 | ! NTSSG : number of surface temperatures for subgrid diagnostics |
|---|
| 35 | |
|---|
| 36 | ! NCHAC: nombre de champs a accumuler. |
|---|
| 37 | ! NCHIN: nombre de champs instantanes. |
|---|
| 38 | ! NSIRA: nombre d'intervales spectraux pour les diagnostiques de |
|---|
| 39 | ! flux radiatif a p=0 et p=ps. |
|---|
| 40 | |
|---|
| 41 | ! NVTEND: number of tendencies used in 2.order scheme |
|---|
| 42 | |
|---|
| 43 | ! LTPROF: .T. if more than 1 vertical layer in deep soil |
|---|
| 44 | |
|---|
| 45 | INTEGER(KIND=JPIM) :: NVXP |
|---|
| 46 | INTEGER(KIND=JPIM) :: NVXP2 |
|---|
| 47 | INTEGER(KIND=JPIM) :: NCXP |
|---|
| 48 | INTEGER(KIND=JPIM) :: NCSI |
|---|
| 49 | INTEGER(KIND=JPIM) :: NCSNEC |
|---|
| 50 | INTEGER(KIND=JPIM) :: NTILES |
|---|
| 51 | INTEGER(KIND=JPIM) :: NTSL |
|---|
| 52 | INTEGER(KIND=JPIM) :: NVEXTR |
|---|
| 53 | INTEGER(KIND=JPIM) :: NVEXTRDYN |
|---|
| 54 | INTEGER(KIND=JPIM) :: NVXTR2 |
|---|
| 55 | INTEGER(KIND=JPIM) :: NCEXTR |
|---|
| 56 | INTEGER(KIND=JPIM) :: NVCLIS |
|---|
| 57 | INTEGER(KIND=JPIM) :: NTOZ1D |
|---|
| 58 | INTEGER(KIND=JPIM) :: NTOZ2D |
|---|
| 59 | INTEGER(KIND=JPIM) :: NTOZ3D |
|---|
| 60 | INTEGER(KIND=JPIM) :: NTSSG |
|---|
| 61 | INTEGER(KIND=JPIM) :: NTVG |
|---|
| 62 | INTEGER(KIND=JPIM) :: NLOA |
|---|
| 63 | INTEGER(KIND=JPIM) :: NLOE |
|---|
| 64 | INTEGER(KIND=JPIM) :: NCHAC |
|---|
| 65 | INTEGER(KIND=JPIM) :: NCHIN |
|---|
| 66 | INTEGER(KIND=JPIM) :: NSIRA |
|---|
| 67 | INTEGER(KIND=JPIM) :: NVTEND |
|---|
| 68 | LOGICAL :: LTPROF |
|---|
| 69 | ! ------------------------------------------------------------------ |
|---|
| 70 | !$OMP THREADPRIVATE(ltprof,ncextr,nchac,nchin,ncsi,ncsnec,ncxp,nloa,nloe,nsira,ntiles,ntoz1d,ntoz2d,ntoz3d,ntsl,ntssg) |
|---|
| 71 | !$OMP THREADPRIVATE(ntvg,nvclis,nvextr,nvextrdyn,nvtend,nvxp,nvxp2,nvxtr2) |
|---|
| 72 | END MODULE YOMDPHY |
|---|
