/[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 198 - (hide annotations)
Tue May 31 16:17:35 2016 UTC (8 years ago) by guez
File size: 975 byte(s) 
Removed variables nk1 and nk in cv_driver and below. These arrays were
just equal to the constant minorig. (This is also the case in LMDZ.)

In cv_thermo, removed some variables which were copies of variables of
suphec_m. Changed some variables to named constants.
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
  ViewVC Help
Powered by ViewVC 1.1.21