Last change
on this file since 5455 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
|
Line | |
---|
1 | MODULE YOETHF |
---|
2 | |
---|
3 | |
---|
4 | #include "tsmbkind.h" |
---|
5 | |
---|
6 | IMPLICIT NONE |
---|
7 | |
---|
8 | SAVE |
---|
9 | |
---|
10 | ! ------------------------------------------------------------------ |
---|
11 | !* *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS |
---|
12 | ! ------------------------------------------------------------------ |
---|
13 | |
---|
14 | REAL_B :: R2ES |
---|
15 | REAL_B :: R3LES |
---|
16 | REAL_B :: R3IES |
---|
17 | REAL_B :: R4LES |
---|
18 | REAL_B :: R4IES |
---|
19 | REAL_B :: R5LES |
---|
20 | REAL_B :: R5IES |
---|
21 | REAL_B :: RVTMP2 |
---|
22 | REAL_B :: RHOH2O |
---|
23 | REAL_B :: R5ALVCP |
---|
24 | REAL_B :: R5ALSCP |
---|
25 | REAL_B :: RALVDCP |
---|
26 | REAL_B :: RALSDCP |
---|
27 | REAL_B :: RALFDCP |
---|
28 | REAL_B :: RTWAT |
---|
29 | REAL_B :: RTBER |
---|
30 | REAL_B :: RTBERCU |
---|
31 | REAL_B :: RTICE |
---|
32 | REAL_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 | ! ---------------------------------------------------------------- |
---|
56 | END MODULE YOETHF |
---|
Note: See
TracBrowser
for help on using the repository browser.