1 |
module yoethf |
module yoethf |
2 |
|
|
3 |
! From phylmd/YOETHF.inc,v 1.1.1.1 2004/05/19 12:53:09 |
! From phylmd/yoethf.inc,v 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 |
implicit none |
implicit none |
7 |
|
|
8 |
REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES |
REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES |
9 |
! CONSTANTS USED FOR COMPUTATION OF SATURATION |
! CONSTANTS USED FOR COMPUTATION OF SATURATION MIXING RATIO OVER |
10 |
! MIXING RATIO OVER LIQUID WATER(R_LES) OR |
! LIQUID WATER (R_LES) OR ICE (R_IES) |
11 |
! ICE(R_IES). |
|
12 |
|
REAL RVTMP2 ! RCPV / RCPD - 1. |
13 |
REAL RVTMP2, RHOH2O |
real RHOH2O ! DENSITY OF LIQUID WATER (RATM / 100.) |
|
! RVTMP2 RVTMP2=RCPV/RCPD-1. |
|
|
! RHOH2O DENSITY OF LIQUID WATER. (RATM/100.) |
|
14 |
|
|
15 |
save |
save |
16 |
|
|