| [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 | |
|---|
| 109 | END MODULE YOMCLI |
|---|
