1 |
guez |
190 |
module cv_thermo_m |
2 |
guez |
49 |
|
3 |
guez |
190 |
! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09 |
4 |
guez |
196 |
! Thermodynamical constants for cv_driver |
5 |
guez |
49 |
|
6 |
guez |
198 |
use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw |
7 |
|
|
|
8 |
guez |
49 |
implicit none |
9 |
|
|
|
10 |
guez |
198 |
real cpd, cpv, cl, rrv, rrd, rowl, t0 |
11 |
|
|
real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd |
12 |
|
|
real, parameter:: cpdmcp = rcpd - rcpv |
13 |
|
|
real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv |
14 |
guez |
190 |
real eps, epsi, epsim1 |
15 |
guez |
198 |
real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd |
16 |
guez |
49 |
|
17 |
guez |
198 |
private rd, rg, rcpd, rcpv, rcw |
18 |
|
|
|
19 |
guez |
190 |
contains |
20 |
guez |
49 |
|
21 |
guez |
190 |
SUBROUTINE cv_thermo |
22 |
guez |
49 |
|
23 |
guez |
196 |
! Set thermodynamical constants for cv_driver |
24 |
guez |
190 |
|
25 |
guez |
198 |
use SUPHEC_M, only: rlvtt, rv |
26 |
guez |
190 |
|
27 |
|
|
!----------------------------------------------------- |
28 |
|
|
|
29 |
|
|
cpd = RCPD |
30 |
|
|
cpv = RCPV |
31 |
|
|
cl = RCW |
32 |
|
|
rrv = RV |
33 |
|
|
rrd = RD |
34 |
|
|
t0 = 273.15 |
35 |
|
|
|
36 |
guez |
198 |
rowl = 1000. ! (\`A quelle variable de SUPHEC_M cela correspond-il ?) |
37 |
|
|
eps = rd/rrv |
38 |
|
|
epsi = 1.0/eps |
39 |
|
|
epsim1 = epsi - 1.0 |
40 |
guez |
190 |
|
41 |
|
|
end SUBROUTINE cv_thermo |
42 |
|
|
|
43 |
|
|
end module cv_thermo_m |