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	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