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	module cvthermo
2
3	! From LMDZ4/libf/phylmd/cvthermo.h,v 1.1.1.1 2004/05/19 12:53:09
4	! Thermodynamical constants for convectL
5
6	implicit none
7
8	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