1 |
module yoethf_m |
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 |
implicit none |
implicit none |
7 |
|
|
8 |
! Constants used for computation of saturation mixing ratio over |
! Constants used for computation of saturation mixing ratio over |
9 |
! liquid water (r_les) or ice (r_ies): |
! liquid water (r.les) or ice (r.ies): |
10 |
REAL R2ES, R5LES, R5IES |
REAL R2ES, R5LES, R5IES |
11 |
real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66 |
real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66 |
12 |
|
|