3 |
! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09 |
! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09 |
4 |
! Thermodynamical constants for cv_driver |
! Thermodynamical constants for cv_driver |
5 |
|
|
6 |
use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw, rv |
use SUPHEC_M, only: rd, rg, rcpv, rcw, rv |
7 |
|
|
8 |
implicit none |
implicit none |
9 |
|
|
10 |
real, parameter:: rowl = 1000., t0 = 273.15 |
real, parameter:: rowl = 1000. |
11 |
real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd |
real, parameter:: clmcpv = rcw - rcpv |
12 |
real, parameter:: cpdmcp = rcpd - rcpv |
real, parameter:: eps = rd / rv |
13 |
real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv |
real, parameter:: ginv = 1. / rg |
|
real, parameter:: eps = rd / rv, epsi = 1. / eps, epsim1 = epsi - 1. |
|
|
real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd |
|
14 |
|
|
15 |
private rd, rg, rcpd, rcpv, rcw, rv |
private rd, rg, rcpv, rcw, rv |
16 |
|
|
17 |
end module cv_thermo |
end module cv_thermo |