1 |
guez |
38 |
module yoethf_m |
2 |
guez |
3 |
|
3 |
guez |
88 |
! From phylmd/yoethf.inc, version 1.1.1.1 2004/05/19 12:53:09 |
4 |
guez |
38 |
! Derived constants specific to ECMWF thermodynamics |
5 |
guez |
3 |
|
6 |
|
|
implicit none |
7 |
|
|
|
8 |
guez |
38 |
! Constants used for computation of saturation mixing ratio over |
9 |
guez |
88 |
! liquid water (r.les) or ice (r.ies): |
10 |
guez |
38 |
REAL R2ES, R5LES, R5IES |
11 |
|
|
real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66 |
12 |
guez |
3 |
|
13 |
guez |
38 |
REAL RVTMP2 |
14 |
|
|
real RHOH2O ! density of liquid water |
15 |
guez |
3 |
|
16 |
|
|
save |
17 |
|
|
|
18 |
guez |
38 |
contains |
19 |
|
|
|
20 |
|
|
subroutine yoethf |
21 |
|
|
|
22 |
|
|
! Calcul des constantes pour les fonctions thermodynamiques |
23 |
|
|
|
24 |
|
|
use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv |
25 |
|
|
|
26 |
|
|
!----------------------------------------- |
27 |
|
|
|
28 |
|
|
RVTMP2=RCPV/RCPD-1. |
29 |
|
|
RHOH2O=RATM/100. |
30 |
guez |
70 |
R2ES = RESTT * RD / RV |
31 |
guez |
38 |
R5LES=R3LES*(RTT-R4LES) |
32 |
|
|
R5IES=R3IES*(RTT-R4IES) |
33 |
|
|
|
34 |
|
|
end subroutine yoethf |
35 |
|
|
|
36 |
|
|
end module yoethf_m |