/[lmdze]/trunk/Sources/phylmd/cv_thermo.f
ViewVC logotype

Annotation of /trunk/Sources/phylmd/cv_thermo.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 196 - (hide annotations)
Mon May 23 13:50:39 2016 UTC (8 years ago) by guez
File size: 945 byte(s) 
Removed argument icbmax of cv30_feed, not used in cv_driver (not used
in LMDZ either).

Clearer to have iflag1 = 0 in cv30_feed than in cv_driver. Clearer to
have iflag1 = 42 in cv30_uncompress than in cv_driver.

Removed argument iflag of cv30_compress. Since there is iflag1 = 42 in
cv30_uncompress, iflag1 that comes out of cv_driver is disconnected
from iflag1 computed by cv30_feed and cv30_trigger.

Removed some references to convect3 and convect4 in comments. This
program derives from the convect3 version, we do not need to know
about other versions.

Bug fix in cv30_undilute1: icbs1 was not made >= 2.
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     implicit none
7    
8 guez 190 real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
9     real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl
10     real eps, epsi, epsim1
11     real ginv, hrd
12     real grav
13 guez 49
14 guez 190 contains
15 guez 49
16 guez 190 SUBROUTINE cv_thermo
17 guez 49
18 guez 196 ! Set thermodynamical constants for cv_driver
19 guez 190
20     use SUPHEC_M, only: rcpd, rcpv, rcw, rd, rg, rlvtt, rv
21    
22     !-----------------------------------------------------
23    
24     cpd = RCPD
25     cpv = RCPV
26     cl = RCW
27     rrv = RV
28     rrd = RD
29     lv0 = RLVTT
30     g = RG
31     t0 = 273.15
32     grav= g
33    
34     rowl=1000. ! (\`A quelle variable de SUPHEC_M cela correspond-il ?)
35     clmcpv=cl-cpv
36     clmcpd=cl-cpd
37     cpdmcp=cpd-cpv
38     cpvmcpd=cpv-cpd
39     cpvmcl=cl-cpv
40     eps=rrd/rrv
41     epsi=1.0/eps
42     epsim1=epsi-1.0
43     ginv=1.0/grav
44     hrd=0.5*rrd
45    
46     end SUBROUTINE cv_thermo
47    
48     end module cv_thermo_m
  ViewVC Help
Powered by ViewVC 1.1.21