Parent Directory | Revision Log
Replaced integer variable iflag_con of module clesphys2 by logical variable conv_emanuel.
1 | SUBROUTINE cv_thermo |
2 | |
3 | ! Set thermodynamical constants for convectL |
4 | |
5 | use SUPHEC_M |
6 | use cvthermo |
7 | |
8 | implicit none |
9 | |
10 | !----------------------------------------------------- |
11 | |
12 | 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 | |
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 | cpvmcl=cl-cpv |
28 | 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 |