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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 201 - (show annotations)
Mon Jun 6 17:42:15 2016 UTC (7 years, 9 months ago) by guez
File size: 604 byte(s)
Removed intermediary objects of cv_thermo_m, access suphec_m
directly. Procedure cv_thermo disappeared, all objects are named
constants.

In cv_driver and below, limited extents of arrays to what is needed.

lv, cpn and th in cv30_compress were set at level nl + 1 but lv1, cpn1
and th1 are not defined at this level. This did not lead to an error
because values at nl + 1 were not used.

Removed test on ok_sync in phystokenc because it is not read at run
time. Printing min and max of output NetCDF variables is heavy and
archaic.

Used histwrite_phy in phytrac.

1 module cv_thermo_m
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_m

  ViewVC Help
Powered by ViewVC 1.1.21