phylmd/CV30_routines/cv_thermo.f90

module cv_thermo

  ! 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, rcpv, rcw, rv

  implicit none

  real, parameter:: rowl = 1000.
  real, parameter:: clmcpv = rcw - rcpv
  real, parameter:: eps = rd / rv
  real, parameter:: ginv = 1. / rg

  private rd, rg, rcpv, rcw, rv

end module cv_thermo
1	guez	311	module cv_thermo
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	322	use SUPHEC_M, only: rd, rg, rcpv, rcw, rv
7	guez	198
8	guez	49	implicit none
9
10	guez	322	real, parameter:: rowl = 1000.
11			real, parameter:: clmcpv = rcw - rcpv
12			real, parameter:: eps = rd / rv
13			real, parameter:: ginv = 1. / rg
14	guez	49
15	guez	322	private rd, rg, rcpv, rcw, rv
16	guez	198
17	guez	311	end module cv_thermo