Parent Directory | Revision Log
Replaced integer variable iflag_con of module clesphys2 by logical variable conv_emanuel.
1 | guez | 69 | SUBROUTINE cv_thermo |
2 | guez | 49 | |
3 | ! Set thermodynamical constants for convectL | ||
4 | |||
5 | use SUPHEC_M | ||
6 | use cvthermo | ||
7 | |||
8 | implicit none | ||
9 | |||
10 | !----------------------------------------------------- | ||
11 | |||
12 | guez | 182 | cpd = RCPD |
13 | cpv = RCPV | ||
14 | cl = RCW | ||
15 | rrv = RV | ||
16 | rrd = RD | ||
17 | lv0 = RLVTT | ||
18 | g = RG | ||
19 | t0 = 273.15 | ||
20 | grav= g | ||
21 | guez | 49 | |
22 | rowl=1000.0 !(a quelle variable de SUPHEC_M cela correspond-il?) | ||
23 | clmcpv=cl-cpv | ||
24 | clmcpd=cl-cpd | ||
25 | cpdmcp=cpd-cpv | ||
26 | cpvmcpd=cpv-cpd | ||
27 | guez | 182 | cpvmcl=cl-cpv |
28 | guez | 49 | eps=rrd/rrv |
29 | epsi=1.0/eps | ||
30 | epsim1=epsi-1.0 | ||
31 | ginv=1.0/grav | ||
32 | hrd=0.5*rrd | ||
33 | |||
34 | end SUBROUTINE cv_thermo |
ViewVC Help | |
Powered by ViewVC 1.1.21 |