MODULE YOMCLI USE PARKIND1 ,ONLY : JPIM ,JPRB IMPLICIT NONE SAVE ! *YOMCLI* : constants for new configuration 923 ! Dataset description ! - namelist - ! NPINT : size of the interpolation box ! LIEEE : if ieee format is used ! LGLOBE : if global dataset ! NDATX : x-size of the dataset (longitude) ! NDATY : y-size of the dataset (longitude) ! ELONSW , ELATSW , ELONNE , ELATNE : for local datasets (parts 5, 7 or LAM) ! latitudes and longitudes of the SW and NE corners (in degrees) ! - local, set directly by INCLI0 from namelist - ! EDLON , EDLAT : resolution of the dataset (in degrees) ! NGLOBX, NGLOBY : corresponding numbers of points on the globe ! - local, set by VAL923 according to LSOLV - ! SMASK : thresholds defining the masked areas ! SMANQ : value for missing data ! NTPMER : land-use type for sea (or lake) ! NTPGLA : land-use type for ice-cap ! NTPDES : land-use type for low vegetation, including deserts (land default) ! NTPLAC : land-use type for lakes if a distinction is required ! NSLICE : number of packet of latitudes which slice the domain ! Fields characteristics ! - namelist - ! SVEG : threshold for significant vegetation cover ! (below, vegetation characteristics are not considered) ! SFCZ0 : scaling factor for the secondary part of z0 (urban., veget.) ! STR : thresholds on T-RTT used to control snow cover in Part 6 ! SST-RTT, constant, in Part 10 when no input dataset is available ! SWR : thresholds on T-RTT and Wr used to control snow cover in Part 6 ! - local, set by VAL923 according to LSOLV - ! STHER : ration of thermal to kinetic roughness length (over land) ! SALBN,SALBX,SALBM,SALBG,SALBB,SALBD : albedo ! SEMIN,SEMIX,SEMIM,SEMIG,SEMIB,SEMID : emissivity ! (minimum,maximum,sea,ice,sea ice,desert) ! SDEPN,SDEPX,SDEPD : soil depth ! SARGN,SARGX,SARGD : clay percentage ! SSABN,SSABX,SSABD : sand percentage ! SRSMN,SRSMX,SRSMD : minimum surface resistance ! (minimum,maximum,desert) ! SZZ0N,SZZ0M,SZZ0B,SZZ0U,SZZ0D : roughness length ! (minimum,sea,sea-ice,urban areas,desert) LOGICAL :: LIEEE LOGICAL :: LGLOBE INTEGER(KIND=JPIM) :: NPINT INTEGER(KIND=JPIM) :: NDATX INTEGER(KIND=JPIM) :: NDATY INTEGER(KIND=JPIM) :: NGLOBX INTEGER(KIND=JPIM) :: NGLOBY INTEGER(KIND=JPIM) :: NTPMER INTEGER(KIND=JPIM) :: NTPGLA INTEGER(KIND=JPIM) :: NTPDES INTEGER(KIND=JPIM) :: NTPLAC INTEGER(KIND=JPIM) :: NSLICE REAL(KIND=JPRB) :: ELONSW REAL(KIND=JPRB) :: ELATSW REAL(KIND=JPRB) :: ELONNE REAL(KIND=JPRB) :: ELATNE REAL(KIND=JPRB) :: EDLON REAL(KIND=JPRB) :: EDLAT REAL(KIND=JPRB) :: SMASK REAL(KIND=JPRB) :: SMANQ REAL(KIND=JPRB) :: SVEG REAL(KIND=JPRB) :: SFCZ0 REAL(KIND=JPRB) :: STR REAL(KIND=JPRB) :: SWR REAL(KIND=JPRB) :: STHER REAL(KIND=JPRB) :: SALBN REAL(KIND=JPRB) :: SALBX REAL(KIND=JPRB) :: SALBM REAL(KIND=JPRB) :: SALBG REAL(KIND=JPRB) :: SALBB REAL(KIND=JPRB) :: SALBD REAL(KIND=JPRB) :: SEMIN REAL(KIND=JPRB) :: SEMIX REAL(KIND=JPRB) :: SEMIM REAL(KIND=JPRB) :: SEMIG REAL(KIND=JPRB) :: SEMIB REAL(KIND=JPRB) :: SEMID REAL(KIND=JPRB) :: SDEPN REAL(KIND=JPRB) :: SDEPX REAL(KIND=JPRB) :: SDEPD REAL(KIND=JPRB) :: SARGN REAL(KIND=JPRB) :: SARGX REAL(KIND=JPRB) :: SARGD REAL(KIND=JPRB) :: SSABN REAL(KIND=JPRB) :: SSABX REAL(KIND=JPRB) :: SSABD REAL(KIND=JPRB) :: SRSMN REAL(KIND=JPRB) :: SRSMX REAL(KIND=JPRB) :: SRSMD REAL(KIND=JPRB) :: SZZ0N REAL(KIND=JPRB) :: SZZ0M REAL(KIND=JPRB) :: SZZ0B REAL(KIND=JPRB) :: SZZ0U REAL(KIND=JPRB) :: SZZ0D !$OMP THREADPRIVATE(edlat,edlon,elatne,elatsw,elonne,elonsw,lglobe,lieee,ndatx,ndaty) !$OMP THREADPRIVATE(nglobx,ngloby,npint,nslice,ntpdes,ntpgla,ntplac,ntpmer,salbb,salbd) !$OMP THREADPRIVATE(salbg,salbm,salbn,salbx,sargd,sargn,sargx,sdepd,sdepn,sdepx,semib) !$OMP THREADPRIVATE(semid,semig,semim,semin,semix,sfcz0,smanq,smask,srsmd,srsmn,srsmx) !$OMP THREADPRIVATE(ssabd,ssabn,ssabx,sther,str,sveg,swr,szz0b,szz0d,szz0m,szz0n,szz0u) END MODULE YOMCLI