yomsta.F90

Go to the documentation of this file.

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