yoethf.F90

Go to the documentation of this file.

MODULE yoethf

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*     *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
!     ------------------------------------------------------------------

REAL(KIND=JPRB) :: r2es
REAL(KIND=JPRB) :: r3les
REAL(KIND=JPRB) :: r3ies
REAL(KIND=JPRB) :: r4les
REAL(KIND=JPRB) :: r4ies
REAL(KIND=JPRB) :: r5les
REAL(KIND=JPRB) :: r5ies
REAL(KIND=JPRB) :: rvtmp2
REAL(KIND=JPRB) :: rhoh2o
REAL(KIND=JPRB) :: r5alvcp
REAL(KIND=JPRB) :: r5alscp
REAL(KIND=JPRB) :: ralvdcp
REAL(KIND=JPRB) :: ralsdcp
REAL(KIND=JPRB) :: ralfdcp
REAL(KIND=JPRB) :: rtwat
REAL(KIND=JPRB) :: rtber
REAL(KIND=JPRB) :: rtbercu
REAL(KIND=JPRB) :: rtice
REAL(KIND=JPRB) :: rticecu
REAL(KIND=JPRB) :: rtwat_rtice_r
REAL(KIND=JPRB) :: rtwat_rticecu_r
REAL(KIND=JPRB) :: rkoop1
REAL(KIND=JPRB) :: rkoop2

!     J.-J. MORCRETTE                   91/07/14  ADAPTED TO I.F.S.

!      NAME     TYPE      PURPOSE
!      ----     ----      -------

!     *R__ES*   REAL      *CONSTANTS USED FOR COMPUTATION OF SATURATION
!                         MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
!                         ICE(*R_IES*).
!     *RVTMP2*  REAL      *RVTMP2=RCPV/RCPD-1.
!     *RHOH2O*  REAL      *DENSITY OF LIQUID WATER.   (RATM/100.)
!     *R5ALVCP* REAL      *R5LES*RLVTT/RCPD
!     *R5ALSCP* REAL      *R5IES*RLSTT/RCPD
!     *RALVDCP* REAL      *RLVTT/RCPD
!     *RALSDCP* REAL      *RLSTT/RCPD
!     *RALFDCP* REAL      *RLMLT/RCPD
!     *RTWAT*   REAL      *RTWAT=RTT
!     *RTBER*   REAL      *RTBER=RTT-0.05
!     *RTBERCU  REAL      *RTBERCU=RTT-5.0
!     *RTICE*   REAL      *RTICE=RTT-0.1
!     *RTICECU* REAL      *RTICECU=RTT-23.0
!     *RKOOP?   REAL      *CONSTANTS TO DESCRIBE KOOP FORM FOR NUCLEATION
!     *RTWAT_RTICE_R*   REAL      *RTWAT_RTICE_R=1./(RTWAT-RTICE)
!     *RTWAT_RTICECU_R* REAL      *RTWAT_RTICECU_R=1./(RTWAT-RTICECU)

!       ----------------------------------------------------------------
!$OMP THREADPRIVATE(r2es,r3ies,r3les,r4ies,r4les,r5alscp,r5alvcp,r5ies,r5les)
!$OMP THREADPRIVATE(ralfdcp,ralsdcp,ralvdcp,rhoh2o,rkoop1,rkoop2,rtber,rtbercu)
!$OMP THREADPRIVATE(rtice,rticecu,rtwat,rtwat_rtice_r,rtwat_rticecu_r,rvtmp2)
END MODULE yoethf