source: LMDZ5/branches/testing/libf/phymar/yoethf.F90 @ 3078

Last change on this file since 3078 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
File size: 1.5 KB
RevLine 
[2089]1MODULE YOETHF
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*     *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
12!     ------------------------------------------------------------------
13
14REAL_B :: R2ES
15REAL_B :: R3LES
16REAL_B :: R3IES
17REAL_B :: R4LES
18REAL_B :: R4IES
19REAL_B :: R5LES
20REAL_B :: R5IES
21REAL_B :: RVTMP2
22REAL_B :: RHOH2O
23REAL_B :: R5ALVCP
24REAL_B :: R5ALSCP
25REAL_B :: RALVDCP
26REAL_B :: RALSDCP
27REAL_B :: RALFDCP
28REAL_B :: RTWAT
29REAL_B :: RTBER
30REAL_B :: RTBERCU
31REAL_B :: RTICE
32REAL_B :: RTICECU
33
34!     J.-J. MORCRETTE                   91/07/14  ADAPTED TO I.F.S.
35
36!      NAME     TYPE      PURPOSE
37!      ----     ----      -------
38
39!     *R__ES*   REAL      *CONSTANTS USED FOR COMPUTATION OF SATURATION
40!                         MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
41!                         ICE(*R_IES*).
42!     *RVTMP2*  REAL      *RVTMP2=RCPV/RCPD-1.
43!     *RHOH2O*  REAL      *DENSITY OF LIQUID WATER.   (RATM/100.)
44!     *R5ALVCP* REAL      *R5LES*RLVTT/RCPD
45!     *R5ALSCP* REAL      *R5IES*RLSTT/RCPD
46!     *RALVDCP* REAL      *RLVTT/RCPD
47!     *RALSDCP* REAL      *RLSTT/RCPD
48!     *RALFDCP* REAL      *RLMLT/RCPD
49!     *RTWAT*   REAL      *RTWAT=RTT
50!     *RTBER*   REAL      *RTBER=RTT-0.05
51!     *RTBERCU  REAL      *RTBERCU=RTT-5.0
52!     *RTICE*   REAL      *RTICE=RTT-0.1
53!     *RTICECU* REAL      *RTICECU=RTT-23.0
54
55!       ----------------------------------------------------------------
56END MODULE YOETHF
Note: See TracBrowser for help on using the repository browser.