/[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 201 - (hide annotations)
Mon Jun 6 17:42:15 2016 UTC (7 years, 11 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 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 201 use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw, rv
7 guez 198
8 guez 49 implicit none
9    
10 guez 201 real, parameter:: rowl = 1000., t0 = 273.15
11 guez 198 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 201 real, parameter:: eps = rd / rv, epsi = 1. / eps, epsim1 = epsi - 1.
15 guez 198 real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd
16 guez 49
17 guez 201 private rd, rg, rcpd, rcpv, rcw, rv
18 guez 198
19 guez 190 end module cv_thermo_m
  ViewVC Help
Powered by ViewVC 1.1.21