[1989] | 1 | MODULE YOMCLI |
---|
| 2 | |
---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
---|
| 4 | |
---|
| 5 | IMPLICIT NONE |
---|
| 6 | |
---|
| 7 | SAVE |
---|
| 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 | |
---|
| 54 | LOGICAL :: LIEEE |
---|
| 55 | LOGICAL :: LGLOBE |
---|
| 56 | INTEGER(KIND=JPIM) :: NPINT |
---|
| 57 | INTEGER(KIND=JPIM) :: NDATX |
---|
| 58 | INTEGER(KIND=JPIM) :: NDATY |
---|
| 59 | INTEGER(KIND=JPIM) :: NGLOBX |
---|
| 60 | INTEGER(KIND=JPIM) :: NGLOBY |
---|
| 61 | INTEGER(KIND=JPIM) :: NTPMER |
---|
| 62 | INTEGER(KIND=JPIM) :: NTPGLA |
---|
| 63 | INTEGER(KIND=JPIM) :: NTPDES |
---|
| 64 | INTEGER(KIND=JPIM) :: NTPLAC |
---|
| 65 | INTEGER(KIND=JPIM) :: NSLICE |
---|
| 66 | REAL(KIND=JPRB) :: ELONSW |
---|
| 67 | REAL(KIND=JPRB) :: ELATSW |
---|
| 68 | REAL(KIND=JPRB) :: ELONNE |
---|
| 69 | REAL(KIND=JPRB) :: ELATNE |
---|
| 70 | REAL(KIND=JPRB) :: EDLON |
---|
| 71 | REAL(KIND=JPRB) :: EDLAT |
---|
| 72 | REAL(KIND=JPRB) :: SMASK |
---|
| 73 | REAL(KIND=JPRB) :: SMANQ |
---|
| 74 | REAL(KIND=JPRB) :: SVEG |
---|
| 75 | REAL(KIND=JPRB) :: SFCZ0 |
---|
| 76 | REAL(KIND=JPRB) :: STR |
---|
| 77 | REAL(KIND=JPRB) :: SWR |
---|
| 78 | REAL(KIND=JPRB) :: STHER |
---|
| 79 | REAL(KIND=JPRB) :: SALBN |
---|
| 80 | REAL(KIND=JPRB) :: SALBX |
---|
| 81 | REAL(KIND=JPRB) :: SALBM |
---|
| 82 | REAL(KIND=JPRB) :: SALBG |
---|
| 83 | REAL(KIND=JPRB) :: SALBB |
---|
| 84 | REAL(KIND=JPRB) :: SALBD |
---|
| 85 | REAL(KIND=JPRB) :: SEMIN |
---|
| 86 | REAL(KIND=JPRB) :: SEMIX |
---|
| 87 | REAL(KIND=JPRB) :: SEMIM |
---|
| 88 | REAL(KIND=JPRB) :: SEMIG |
---|
| 89 | REAL(KIND=JPRB) :: SEMIB |
---|
| 90 | REAL(KIND=JPRB) :: SEMID |
---|
| 91 | REAL(KIND=JPRB) :: SDEPN |
---|
| 92 | REAL(KIND=JPRB) :: SDEPX |
---|
| 93 | REAL(KIND=JPRB) :: SDEPD |
---|
| 94 | REAL(KIND=JPRB) :: SARGN |
---|
| 95 | REAL(KIND=JPRB) :: SARGX |
---|
| 96 | REAL(KIND=JPRB) :: SARGD |
---|
| 97 | REAL(KIND=JPRB) :: SSABN |
---|
| 98 | REAL(KIND=JPRB) :: SSABX |
---|
| 99 | REAL(KIND=JPRB) :: SSABD |
---|
| 100 | REAL(KIND=JPRB) :: SRSMN |
---|
| 101 | REAL(KIND=JPRB) :: SRSMX |
---|
| 102 | REAL(KIND=JPRB) :: SRSMD |
---|
| 103 | REAL(KIND=JPRB) :: SZZ0N |
---|
| 104 | REAL(KIND=JPRB) :: SZZ0M |
---|
| 105 | REAL(KIND=JPRB) :: SZZ0B |
---|
| 106 | REAL(KIND=JPRB) :: SZZ0U |
---|
| 107 | REAL(KIND=JPRB) :: SZZ0D |
---|
| 108 | |
---|
[2056] | 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) |
---|
[1989] | 114 | END MODULE YOMCLI |
---|