trunk/phylmd/cvthermo.f

module cvthermo

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

  implicit none

  real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
  real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl
  real eps, epsi, epsim1
  real ginv, hrd
  real grav

end module cvthermo
1	guez	47	module cvthermo
2	guez	3
3	guez	47	! From LMDZ4/libf/phylmd/cvthermo.h,v 1.1.1.1 2004/05/19 12:53:09
4			! Thermodynamical constants for convectL
5	guez	3
6	guez	47	implicit none
7	guez	3
8	guez	47	real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
9			real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl
10			real eps, epsi, epsim1
11			real ginv, hrd
12			real grav
13
14			end module cvthermo