phylmd/CV30_routines/cv_thermo.f

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