yomcli.F90

Go to the documentation of this file.

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