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	SUBROUTINE cv_thermo
2
3	! Set thermodynamical constants for convectL
4
5	use SUPHEC_M
6	use cvthermo
7
8	implicit none
9
10	!-----------------------------------------------------
11
12	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
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	cpvmcl=cl-cpv
28	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