source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomcli.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: 3.9 KB
Line 
1MODULE YOMCLI
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!  *YOMCLI* : constants for new configuration 923
10
11! Dataset description
12
13!  - namelist -
14!  NPINT  : size of the interpolation box
15!  LIEEE  : if ieee format is used
16!  LGLOBE : if global dataset
17!  NDATX  : x-size of the dataset (longitude)
18!  NDATY  : y-size of the dataset (longitude)
19!  ELONSW , ELATSW , ELONNE , ELATNE : for local datasets (parts 5, 7 or LAM)
20!           latitudes and longitudes of the SW and NE corners (in degrees)
21!  - local, set directly by INCLI0 from namelist -
22!  EDLON , EDLAT  : resolution of the dataset (in degrees)
23!  NGLOBX, NGLOBY : corresponding numbers of points on the globe
24!  - local, set by VAL923 according to LSOLV -
25!  SMASK  : thresholds defining the masked areas
26!  SMANQ  : value for missing data
27!  NTPMER : land-use type for sea (or lake)
28!  NTPGLA : land-use type for ice-cap
29!  NTPDES : land-use type for low vegetation, including deserts (land default)
30!  NTPLAC : land-use type for lakes if a distinction is required
31!  NSLICE : number of packet of latitudes which slice the domain
32
33! Fields characteristics
34!  - namelist -
35!  SVEG   : threshold for significant vegetation cover
36!           (below, vegetation characteristics are not considered)
37!  SFCZ0  : scaling factor for the secondary part of z0 (urban., veget.)
38!  STR    : thresholds on T-RTT used to control snow cover in Part 6
39!           SST-RTT, constant, in Part 10 when no input dataset is available
40!  SWR    : thresholds on T-RTT and Wr used to control snow cover in Part 6
41!  - local, set by VAL923 according to LSOLV -
42!  STHER  : ration of thermal to kinetic roughness length (over land)
43!  SALBN,SALBX,SALBM,SALBG,SALBB,SALBD : albedo
44!  SEMIN,SEMIX,SEMIM,SEMIG,SEMIB,SEMID : emissivity
45!  (minimum,maximum,sea,ice,sea ice,desert)
46!  SDEPN,SDEPX,SDEPD : soil depth
47!  SARGN,SARGX,SARGD : clay percentage
48!  SSABN,SSABX,SSABD : sand percentage
49!  SRSMN,SRSMX,SRSMD : minimum surface resistance
50!  (minimum,maximum,desert)
51!  SZZ0N,SZZ0M,SZZ0B,SZZ0U,SZZ0D : roughness length
52!  (minimum,sea,sea-ice,urban areas,desert)
53
54LOGICAL :: LIEEE
55LOGICAL :: LGLOBE
56INTEGER(KIND=JPIM) :: NPINT
57INTEGER(KIND=JPIM) :: NDATX
58INTEGER(KIND=JPIM) :: NDATY
59INTEGER(KIND=JPIM) :: NGLOBX
60INTEGER(KIND=JPIM) :: NGLOBY
61INTEGER(KIND=JPIM) :: NTPMER
62INTEGER(KIND=JPIM) :: NTPGLA
63INTEGER(KIND=JPIM) :: NTPDES
64INTEGER(KIND=JPIM) :: NTPLAC
65INTEGER(KIND=JPIM) :: NSLICE
66REAL(KIND=JPRB) :: ELONSW
67REAL(KIND=JPRB) :: ELATSW
68REAL(KIND=JPRB) :: ELONNE
69REAL(KIND=JPRB) :: ELATNE
70REAL(KIND=JPRB) :: EDLON
71REAL(KIND=JPRB) :: EDLAT
72REAL(KIND=JPRB) :: SMASK
73REAL(KIND=JPRB) :: SMANQ
74REAL(KIND=JPRB) :: SVEG
75REAL(KIND=JPRB) :: SFCZ0
76REAL(KIND=JPRB) :: STR
77REAL(KIND=JPRB) :: SWR
78REAL(KIND=JPRB) :: STHER
79REAL(KIND=JPRB) :: SALBN
80REAL(KIND=JPRB) :: SALBX
81REAL(KIND=JPRB) :: SALBM
82REAL(KIND=JPRB) :: SALBG
83REAL(KIND=JPRB) :: SALBB
84REAL(KIND=JPRB) :: SALBD
85REAL(KIND=JPRB) :: SEMIN
86REAL(KIND=JPRB) :: SEMIX
87REAL(KIND=JPRB) :: SEMIM
88REAL(KIND=JPRB) :: SEMIG
89REAL(KIND=JPRB) :: SEMIB
90REAL(KIND=JPRB) :: SEMID
91REAL(KIND=JPRB) :: SDEPN
92REAL(KIND=JPRB) :: SDEPX
93REAL(KIND=JPRB) :: SDEPD
94REAL(KIND=JPRB) :: SARGN
95REAL(KIND=JPRB) :: SARGX
96REAL(KIND=JPRB) :: SARGD
97REAL(KIND=JPRB) :: SSABN
98REAL(KIND=JPRB) :: SSABX
99REAL(KIND=JPRB) :: SSABD
100REAL(KIND=JPRB) :: SRSMN
101REAL(KIND=JPRB) :: SRSMX
102REAL(KIND=JPRB) :: SRSMD
103REAL(KIND=JPRB) :: SZZ0N
104REAL(KIND=JPRB) :: SZZ0M
105REAL(KIND=JPRB) :: SZZ0B
106REAL(KIND=JPRB) :: SZZ0U
107REAL(KIND=JPRB) :: SZZ0D
108
109!$OMP THREADPRIVATE(edlat,edlon,elatne,elatsw,elonne,elonsw,lglobe,lieee,ndatx,ndaty)
110!$OMP THREADPRIVATE(nglobx,ngloby,npint,nslice,ntpdes,ntpgla,ntplac,ntpmer,salbb,salbd)
111!$OMP THREADPRIVATE(salbg,salbm,salbn,salbx,sargd,sargn,sargx,sdepd,sdepn,sdepx,semib)
112!$OMP THREADPRIVATE(semid,semig,semim,semin,semix,sfcz0,smanq,smask,srsmd,srsmn,srsmx)
113!$OMP THREADPRIVATE(ssabd,ssabn,ssabx,sther,str,sveg,swr,szz0b,szz0d,szz0m,szz0n,szz0u)
114END MODULE YOMCLI
Note: See TracBrowser for help on using the repository browser.