MODULE YOMSTA USE PARKIND1 ,ONLY : JPIM ,JPRB IMPLICIT NONE SAVE ! ------------------------------------------------------------------ !* Description of standard atmosphere (prefix R) !* and of reference atm. used in post-processing (prefix V) ! Suffixe for RZ, RT and RP (VZ, VT AND VP) | RDTDZ ! | ! 1:(SUR) Soil Surface | 1: Troposphere ! 2:(TROP) Bottom of tropopause | 2: Tropopause ! 3:(STRA) Top of tropopause - Bottom of stratosphere | 3: Stratosphere ! 4:(STR2) Modification of temperature gradient | 4: " ! 5:(STPO) Top of stratosphere - Bottom of stratopause | 5: Stratopause ! 6:(MESO) Top of stratopause - Bottom of mesosphere | 6: Mesosphere ! 7:(MES2) Modification of temperature gradient | 7: " ! 8:(MEPO) Top of mesosphere - Bottom of mesopause | 8: Mesopause ! 9:(ABOV) Top of mesopause | 9: Above ! and we have for exemple : ! RDTDZ1: DT/DZ below tropopause (-6.5 K/KM) ! RZTROP: Top of troposphere (Height of tropopause : 11000 M) ! RTSUR : Surface temperature (288.15) ! STPREH(0:NFLEVG) : PRESSURE OF THE HALF LEVELS ! STPRE (NFLEVG) : PRESSURE OF THE LEVELS ! STPHI (NFLEVG) : GEOPOTENTIAL ! STTEM (NFLEVG) : TEMPERATURE ! STDEN (NFLEVG) : DENSITY ! STZ (NFLEVG) : GEOPOTENTIAL ! === OTHER QUANTITIES === ! NLEXTRAP: LEVEL (CLOSE TO THE SURFACE) ! FROM WHERE THE TEMPERATURE IS EXTRAPOLATED ! HEXTRAP : height from where the temperature is extrapolated. REAL(KIND=JPRB),ALLOCATABLE:: STPREH(:) REAL(KIND=JPRB),ALLOCATABLE:: STPRE(:) REAL(KIND=JPRB),ALLOCATABLE:: STPHI(:) REAL(KIND=JPRB),ALLOCATABLE:: STTEM(:) REAL(KIND=JPRB),ALLOCATABLE:: STDEN(:) REAL(KIND=JPRB),ALLOCATABLE:: STZ(:) REAL(KIND=JPRB) :: RZTROP REAL(KIND=JPRB) :: RZSTRA REAL(KIND=JPRB) :: RZSTR2 REAL(KIND=JPRB) :: RZSTPO REAL(KIND=JPRB) :: RZMESO REAL(KIND=JPRB) :: RZMES2 REAL(KIND=JPRB) :: RZMEPO REAL(KIND=JPRB) :: RZABOV REAL(KIND=JPRB) :: RTSUR REAL(KIND=JPRB) :: RTTROP REAL(KIND=JPRB) :: RTSTRA REAL(KIND=JPRB) :: RTSTR2 REAL(KIND=JPRB) :: RTSTPO REAL(KIND=JPRB) :: RTMESO REAL(KIND=JPRB) :: RTMES2 REAL(KIND=JPRB) :: RTMEPO REAL(KIND=JPRB) :: RTABOV REAL(KIND=JPRB) :: RPTROP REAL(KIND=JPRB) :: RPSTRA REAL(KIND=JPRB) :: RPSTR2 REAL(KIND=JPRB) :: RPSTPO REAL(KIND=JPRB) :: RPMESO REAL(KIND=JPRB) :: RPMES2 REAL(KIND=JPRB) :: RPMEPO REAL(KIND=JPRB) :: RPABOV REAL(KIND=JPRB) :: RDTDZ1 REAL(KIND=JPRB) :: RDTDZ2 REAL(KIND=JPRB) :: RDTDZ3 REAL(KIND=JPRB) :: RDTDZ4 REAL(KIND=JPRB) :: RDTDZ5 REAL(KIND=JPRB) :: RDTDZ6 REAL(KIND=JPRB) :: RDTDZ7 REAL(KIND=JPRB) :: RDTDZ8 REAL(KIND=JPRB) :: RDTDZ9 REAL(KIND=JPRB) :: VZTROP REAL(KIND=JPRB) :: VZSTRA REAL(KIND=JPRB) :: VZSTR2 REAL(KIND=JPRB) :: VZSTPO REAL(KIND=JPRB) :: VZMESO REAL(KIND=JPRB) :: VZMES2 REAL(KIND=JPRB) :: VZMEPO REAL(KIND=JPRB) :: VZABOV REAL(KIND=JPRB) :: VTSUR REAL(KIND=JPRB) :: VTTROP REAL(KIND=JPRB) :: VTSTRA REAL(KIND=JPRB) :: VTSTR2 REAL(KIND=JPRB) :: VTSTPO REAL(KIND=JPRB) :: VTMESO REAL(KIND=JPRB) :: VTMES2 REAL(KIND=JPRB) :: VTMEPO REAL(KIND=JPRB) :: VTABOV REAL(KIND=JPRB) :: VPTROP REAL(KIND=JPRB) :: VPSTRA REAL(KIND=JPRB) :: VPSTR2 REAL(KIND=JPRB) :: VPSTPO REAL(KIND=JPRB) :: VPMESO REAL(KIND=JPRB) :: VPMES2 REAL(KIND=JPRB) :: VPMEPO REAL(KIND=JPRB) :: VPABOV REAL(KIND=JPRB) :: VDTDZ1 REAL(KIND=JPRB) :: VDTDZ2 REAL(KIND=JPRB) :: VDTDZ3 REAL(KIND=JPRB) :: VDTDZ4 REAL(KIND=JPRB) :: VDTDZ5 REAL(KIND=JPRB) :: VDTDZ6 REAL(KIND=JPRB) :: VDTDZ7 REAL(KIND=JPRB) :: VDTDZ8 REAL(KIND=JPRB) :: VDTDZ9 REAL(KIND=JPRB) :: HEXTRAP INTEGER(KIND=JPIM) :: NLEXTRAP ! ------------------------------------------------------------------ !$OMP THREADPRIVATE(hextrap,nlextrap,rdtdz1,rdtdz2,rdtdz3,rdtdz4,rdtdz5,rdtdz6,rdtdz7,rdtdz8,rdtdz9) !$OMP THREADPRIVATE(rpabov,rpmepo,rpmes2,rpmeso,rpstpo,rpstr2,rpstra,rptrop,rtabov,rtmepo,rtmes2,rtmeso) !$OMP THREADPRIVATE(rtstpo,rtstr2,rtstra,rtsur,rttrop,rzabov,rzmepo,rzmes2,rzmeso,rzstpo,rzstr2,rzstra) !$OMP THREADPRIVATE(rztrop,vdtdz1,vdtdz2,vdtdz3,vdtdz4,vdtdz5,vdtdz6,vdtdz7,vdtdz8,vdtdz9,vpabov,vpmepo) !$OMP THREADPRIVATE(vpmes2,vpmeso,vpstpo,vpstr2,vpstra,vptrop,vtabov,vtmepo,vtmes2,vtmeso,vtstpo,vtstr2) !$OMP THREADPRIVATE(vtstra,vtsur,vttrop,vzabov,vzmepo,vzmes2,vzmeso,vzstpo,vzstr2,vzstra,vztrop) !$OMP THREADPRIVATE(stden,stphi,stpre,stpreh,sttem,stz) END MODULE YOMSTA