yomcst.F90

Go to the documentation of this file.

MODULE yomcst

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------

!*    Common of physical constants
!     You will find the meanings in the annex 1 of the documentation

! A1.0 Fundamental constants
REAL(KIND=JPRB) :: rpi
REAL(KIND=JPRB) :: rclum
REAL(KIND=JPRB) :: rhpla
REAL(KIND=JPRB) :: rkbol
REAL(KIND=JPRB) :: rnavo
! A1.1 Astronomical constants
REAL(KIND=JPRB) :: rday
REAL(KIND=JPRB) :: rea
REAL(KIND=JPRB) :: repsm
REAL(KIND=JPRB) :: rsiyea
REAL(KIND=JPRB) :: rsiday
REAL(KIND=JPRB) :: romega
! A1.2 Geoide
REAL(KIND=JPRB) :: ra
REAL(KIND=JPRB) :: rg
REAL(KIND=JPRB) :: r1sa
! A1.3 Radiation
REAL(KIND=JPRB) :: rsigma
REAL(KIND=JPRB) :: ri0
! A1.4 Thermodynamic gas phase
REAL(KIND=JPRB) :: r
REAL(KIND=JPRB) :: rmd
REAL(KIND=JPRB) :: rmv
REAL(KIND=JPRB) :: rmo3
REAL(KIND=JPRB) :: rd
REAL(KIND=JPRB) :: rv
REAL(KIND=JPRB) :: rcpd
REAL(KIND=JPRB) :: rcpv
REAL(KIND=JPRB) :: rcvd
REAL(KIND=JPRB) :: rcvv
REAL(KIND=JPRB) :: rkappa
REAL(KIND=JPRB) :: retv
REAL(KIND=JPRB) :: rmco2
REAL(KIND=JPRB) :: rmch4
REAL(KIND=JPRB) :: rmn2o
REAL(KIND=JPRB) :: rmsf6
REAL(KIND=JPRB) :: rmra
REAL(KIND=JPRB) :: rmco
REAL(KIND=JPRB) :: rmhcho
REAL(KIND=JPRB) :: rmno2
REAL(KIND=JPRB) :: rmso2
! A1.5,6 Thermodynamic liquid,solid phases
REAL(KIND=JPRB) :: rcw
REAL(KIND=JPRB) :: rcs
! A1.7 Thermodynamic transition of phase
REAL(KIND=JPRB) :: rlvtt
REAL(KIND=JPRB) :: rlstt
REAL(KIND=JPRB) :: rlvzer
REAL(KIND=JPRB) :: rlszer
REAL(KIND=JPRB) :: rlmlt
REAL(KIND=JPRB) :: rtt
REAL(KIND=JPRB) :: ratm
REAL(KIND=JPRB) :: rdt
! A1.8 Curve of saturation
REAL(KIND=JPRB) :: restt
REAL(KIND=JPRB) :: ralpw
REAL(KIND=JPRB) :: rbetw
REAL(KIND=JPRB) :: rgamw
REAL(KIND=JPRB) :: ralps
REAL(KIND=JPRB) :: rbets
REAL(KIND=JPRB) :: rgams
REAL(KIND=JPRB) :: ralpd
REAL(KIND=JPRB) :: rbetd
REAL(KIND=JPRB) :: rgamd

!    ------------------------------------------------------------------
!$OMP THREADPRIVATE(r,r1sa,ra,ralpd,ralps,ralpw,ratm,rbetd,rbets,rbetw,rclum,rcpd,rcpv,rcs,rcvd,rcvv,rcw)
!$OMP THREADPRIVATE(rd,rday,rdt,rea,repsm,restt,retv,rg,rgamd,rgams,rgamw,rhpla,ri0,rkappa,rkbol,rlmlt)
!$OMP THREADPRIVATE(rlstt,rlszer,rlvtt,rlvzer,rmch4,rmco,rmco2,rmd,rmhcho,rmn2o,rmno2,rmo3,rmra,rmsf6)
!$OMP THREADPRIVATE(rmso2,rmv,rnavo,romega,rpi,rsiday,rsigma,rsiyea,rtt,rv)
END MODULE yomcst