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

Contents of /trunk/phylmd/CV30_routines/cv_thermo.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 311 - (show annotations)
Mon Dec 3 17:52:21 2018 UTC (5 years, 6 months ago) by guez
File size: 600 byte(s) 
Move file cv_thermo.f to directory CV30_routines since it is only used
there. Rename module cv_thermo_m to cv_thermo.

Named constants instead of variables in module suphec_m.

Rename dummy argument spechum of procedure interfsurf_hq to q1lay
(same as corresponding dummy argument in calcul_fluxs).
1 module cv_thermo
2
3 ! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09
4 ! Thermodynamical constants for cv_driver
5
6 use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw, rv
7
8 implicit none
9
10 real, parameter:: rowl = 1000., t0 = 273.15
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 real, parameter:: eps = rd / rv, epsi = 1. / eps, epsim1 = epsi - 1.
15 real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd
16
17 private rd, rg, rcpd, rcpv, rcw, rv
18
19 end module cv_thermo
  ViewVC Help
Powered by ViewVC 1.1.21