trunk/phylmd/cv_thermo.f

module cv_thermo_m

  ! From LMDZ4/libf/phylmd/cvthermo.h, version 1.1.1.1 2004/05/19 12:53:09
  ! Thermodynamical constants for cv_driver

  use SUPHEC_M, only: rd, rg, rcpd, rcpv, rcw, rv

  implicit none

  real, parameter:: rowl = 1000., t0 = 273.15
  real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd
  real, parameter:: cpdmcp = rcpd - rcpv
  real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv
  real, parameter:: eps = rd / rv, epsi = 1. / eps, epsim1 = epsi - 1.
  real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd

  private rd, rg, rcpd, rcpv, rcw, rv

end module cv_thermo_m
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