source: LMDZ6/trunk/libf/phylmd/ecrad/ifs/yoethf.F90 @ 5408

Last change on this file since 5408 was 4876, checked in by idelkadi, 9 months ago

Addition of missing files following the last update (for offline mode)

File size: 3.0 KB
Line 
1! (C) Copyright 1988- ECMWF.
2!
3! This software is licensed under the terms of the Apache Licence Version 2.0
4! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
5!
6! In applying this licence, ECMWF does not waive the privileges and immunities
7! granted to it by virtue of its status as an intergovernmental organisation
8! nor does it submit to any jurisdiction.
9
10MODULE YOETHF
11
12USE PARKIND1  , ONLY : JPIM, JPRB
13USE YOMCST    , ONLY : RD, RV, RCPD, RLVTT, RLSTT, RLMLT, RTT
14
15IMPLICIT NONE
16
17SAVE
18
19!     ------------------------------------------------------------------
20!*     *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
21!     ------------------------------------------------------------------
22
23REAL(KIND=JPRB), PARAMETER :: R2ES = 611.21_JPRB*RD/RV
24REAL(KIND=JPRB), PARAMETER :: R3LES = 17.502_JPRB
25REAL(KIND=JPRB), PARAMETER :: R3IES = 22.587_JPRB
26REAL(KIND=JPRB), PARAMETER :: R4LES = 32.19_JPRB
27REAL(KIND=JPRB), PARAMETER :: R4IES = -0.7_JPRB
28REAL(KIND=JPRB), PARAMETER :: R5LES = R3LES*(RTT-R4LES)
29REAL(KIND=JPRB), PARAMETER :: R5IES = R3IES*(RTT-R4IES)
30REAL(KIND=JPRB), PARAMETER :: RVTMP2 = 0.0_JPRB
31REAL(KIND=JPRB), PARAMETER :: RHOH2O = 1000.0_JPRB
32REAL(KIND=JPRB), PARAMETER :: R5ALVCP = R5LES*RLVTT/RCPD
33REAL(KIND=JPRB), PARAMETER :: R5ALSCP = R5IES*RLSTT/RCPD
34REAL(KIND=JPRB), PARAMETER :: RALVDCP = RLVTT/RCPD
35REAL(KIND=JPRB), PARAMETER :: RALSDCP = RLSTT/RCPD
36REAL(KIND=JPRB), PARAMETER :: RALFDCP = RLMLT/RCPD
37REAL(KIND=JPRB), PARAMETER :: RTWAT = RTT
38REAL(KIND=JPRB), PARAMETER :: RTBER = RTT-5._JPRB
39REAL(KIND=JPRB), PARAMETER :: RTBERCU = RTT-5.0_JPRB
40REAL(KIND=JPRB), PARAMETER :: RTICE = RTT-23._JPRB
41REAL(KIND=JPRB), PARAMETER :: RTICECU = RTT-23._JPRB
42REAL(KIND=JPRB), PARAMETER :: RTWAT_RTICE_R = 1.0_JPRB/(RTWAT-RTICE)
43REAL(KIND=JPRB), PARAMETER :: RTWAT_RTICECU_R = 1.0_JPRB/(RTWAT-RTICECU)
44REAL(KIND=JPRB), PARAMETER :: RKOOP1 = 2.583_JPRB
45REAL(KIND=JPRB), PARAMETER :: RKOOP2 = 0.48116E-2_JPRB
46
47!     J.-J. MORCRETTE                   91/07/14  ADAPTED TO I.F.S.
48
49!      NAME     TYPE      PURPOSE
50!      ----     ----      -------
51
52!     *R__ES*   REAL      *CONSTANTS USED FOR COMPUTATION OF SATURATION
53!                         MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
54!                         ICE(*R_IES*).
55!     *RVTMP2*  REAL      *RVTMP2=RCPV/RCPD-1.
56!     *RHOH2O*  REAL      *DENSITY OF LIQUID WATER.   (RATM/100.)
57!     *R5ALVCP* REAL      *R5LES*RLVTT/RCPD
58!     *R5ALSCP* REAL      *R5IES*RLSTT/RCPD
59!     *RALVDCP* REAL      *RLVTT/RCPD
60!     *RALSDCP* REAL      *RLSTT/RCPD
61!     *RALFDCP* REAL      *RLMLT/RCPD
62!     *RTWAT*   REAL      *RTWAT=RTT
63!     *RTBER*   REAL      *RTBER=RTT-0.05
64!     *RTBERCU  REAL      *RTBERCU=RTT-5.0
65!     *RTICE*   REAL      *RTICE=RTT-0.1
66!     *RTICECU* REAL      *RTICECU=RTT-23.0
67!     *RKOOP?   REAL      *CONSTANTS TO DESCRIBE KOOP FORM FOR NUCLEATION
68!     *RTWAT_RTICE_R*   REAL      *RTWAT_RTICE_R=1./(RTWAT-RTICE)
69!     *RTWAT_RTICECU_R* REAL      *RTWAT_RTICECU_R=1./(RTWAT-RTICECU)
70
71!       ----------------------------------------------------------------
72END MODULE YOETHF
Note: See TracBrowser for help on using the repository browser.