source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomdphy.F90 @ 3847

Last change on this file since 3847 was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP


OpenMP modifications

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 2.5 KB
Line 
1MODULE YOMDPHY
2
3USE PARKIND1  ,ONLY : JPIM
4
5IMPLICIT NONE
6
7SAVE
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
45INTEGER(KIND=JPIM) :: NVXP
46INTEGER(KIND=JPIM) :: NVXP2
47INTEGER(KIND=JPIM) :: NCXP
48INTEGER(KIND=JPIM) :: NCSI
49INTEGER(KIND=JPIM) :: NCSNEC
50INTEGER(KIND=JPIM) :: NTILES
51INTEGER(KIND=JPIM) :: NTSL
52INTEGER(KIND=JPIM) :: NVEXTR
53INTEGER(KIND=JPIM) :: NVEXTRDYN
54INTEGER(KIND=JPIM) :: NVXTR2
55INTEGER(KIND=JPIM) :: NCEXTR
56INTEGER(KIND=JPIM) :: NVCLIS
57INTEGER(KIND=JPIM) :: NTOZ1D
58INTEGER(KIND=JPIM) :: NTOZ2D
59INTEGER(KIND=JPIM) :: NTOZ3D
60INTEGER(KIND=JPIM) :: NTSSG
61INTEGER(KIND=JPIM) :: NTVG
62INTEGER(KIND=JPIM) :: NLOA
63INTEGER(KIND=JPIM) :: NLOE
64INTEGER(KIND=JPIM) :: NCHAC
65INTEGER(KIND=JPIM) :: NCHIN
66INTEGER(KIND=JPIM) :: NSIRA
67INTEGER(KIND=JPIM) :: NVTEND
68LOGICAL            :: 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)
72END MODULE YOMDPHY
Note: See TracBrowser for help on using the repository browser.