source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yomcli.F90

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