1 |
module yoethf |
module yoethf_m |
2 |
|
|
3 |
! From phylmd/YOETHF.inc,v 1.1.1.1 2004/05/19 12:53:09 |
! From phylmd/yoethf.inc, version 1.1.1.1 2004/05/19 12:53:09 |
4 |
! DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS |
! Derived constants specific to ECMWF thermodynamics |
5 |
|
|
6 |
|
use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv |
7 |
|
|
8 |
implicit none |
implicit none |
9 |
|
|
10 |
REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES |
! Constants used for computation of saturation mixing ratio over |
11 |
! CONSTANTS USED FOR COMPUTATION OF SATURATION |
! liquid water (r.les) or ice (r.ies): |
12 |
! MIXING RATIO OVER LIQUID WATER(R_LES) OR |
real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66 |
13 |
! ICE(R_IES). |
real, parameter:: R5LES=R3LES*(RTT-R4LES) |
14 |
|
real, parameter:: R5IES=R3IES*(RTT-R4IES) |
15 |
REAL RVTMP2, RHOH2O |
|
16 |
! RVTMP2 RVTMP2=RCPV/RCPD-1. |
real, parameter:: RVTMP2=RCPV/RCPD-1. |
17 |
! RHOH2O DENSITY OF LIQUID WATER. (RATM/100.) |
real, parameter:: RHOH2O=RATM/100. ! density of liquid water |
18 |
|
real, parameter:: R2ES = RESTT * RD / RV |
19 |
|
|
20 |
save |
private ratm, rcpd, rcpv, rd, restt, rtt, rv |
21 |
|
|
22 |
end module yoethf |
end module yoethf_m |