Sources/phylmd/cv_thermo.f

module cv_thermo_m

  ! 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, rcpd, rcpv, rcw

  implicit none

  real cpd, cpv, cl, rrv, rrd, rowl, t0
  real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd
  real, parameter:: cpdmcp = rcpd - rcpv
  real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv
  real eps, epsi, epsim1
  real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd

  private rd, rg, rcpd, rcpv, rcw

contains

  SUBROUTINE cv_thermo

    ! Set thermodynamical constants for cv_driver

    use SUPHEC_M, only: rlvtt, rv

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

    cpd = RCPD
    cpv = RCPV
    cl  = RCW
    rrv = RV
    rrd = RD
    t0  = 273.15

    rowl = 1000. ! (\`A quelle variable de SUPHEC_M cela correspond-il ?)
    eps = rd/rrv
    epsi = 1.0/eps
    epsim1 = epsi - 1.0

  end SUBROUTINE cv_thermo

end module cv_thermo_m
1	module cv_thermo_m
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, rcpd, rcpv, rcw
7
8	implicit none
9
10	real cpd, cpv, cl, rrv, rrd, rowl, t0
11	real, parameter:: clmcpv = rcw - rcpv, clmcpd = rcw - rcpd
12	real, parameter:: cpdmcp = rcpd - rcpv
13	real, parameter:: cpvmcpd = rcpv - rcpd, cpvmcl = rcw - rcpv
14	real eps, epsi, epsim1
15	real, parameter:: ginv = 1. / rg, hrd = 0.5 * rd
16
17	private rd, rg, rcpd, rcpv, rcw
18
19	contains
20
21	SUBROUTINE cv_thermo
22
23	! Set thermodynamical constants for cv_driver
24
25	use SUPHEC_M, only: rlvtt, rv
26
27	!-----------------------------------------------------
28
29	cpd = RCPD
30	cpv = RCPV
31	cl = RCW
32	rrv = RV
33	rrd = RD
34	t0 = 273.15
35
36	rowl = 1000. ! (\`A quelle variable de SUPHEC_M cela correspond-il ?)
37	eps = rd/rrv
38	epsi = 1.0/eps
39	epsim1 = epsi - 1.0
40
41	end SUBROUTINE cv_thermo
42
43	end module cv_thermo_m