Sources/phylmd/cv_thermo.f

SUBROUTINE cv_thermo

  ! Set thermodynamical constants for convectL

  use SUPHEC_M
  use cvthermo

  implicit none

  !-----------------------------------------------------

  cpd = RCPD
  cpv = RCPV
  cl  = RCW
  rrv = RV
  rrd = RD
  lv0 = RLVTT
  g   = RG
  t0  = 273.15
  grav= g

  rowl=1000.0 !(a quelle variable de SUPHEC_M cela correspond-il?)
  clmcpv=cl-cpv
  clmcpd=cl-cpd
  cpdmcp=cpd-cpv
  cpvmcpd=cpv-cpd
  cpvmcl=cl-cpv
  eps=rrd/rrv
  epsi=1.0/eps
  epsim1=epsi-1.0
  ginv=1.0/grav
  hrd=0.5*rrd

end SUBROUTINE cv_thermo
1	guez	69	SUBROUTINE cv_thermo
2	guez	49
3			! Set thermodynamical constants for convectL
4
5			use SUPHEC_M
6			use cvthermo
7
8			implicit none
9
10			!-----------------------------------------------------
11
12	guez	182	cpd = RCPD
13			cpv = RCPV
14			cl = RCW
15			rrv = RV
16			rrd = RD
17			lv0 = RLVTT
18			g = RG
19			t0 = 273.15
20			grav= g
21	guez	49
22			rowl=1000.0 !(a quelle variable de SUPHEC_M cela correspond-il?)
23			clmcpv=cl-cpv
24			clmcpd=cl-cpd
25			cpdmcp=cpd-cpv
26			cpvmcpd=cpv-cpd
27	guez	182	cpvmcl=cl-cpv
28	guez	49	eps=rrd/rrv
29			epsi=1.0/eps
30			epsim1=epsi-1.0
31			ginv=1.0/grav
32			hrd=0.5*rrd
33
34			end SUBROUTINE cv_thermo