Parent Directory | Revision Log
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 |