trunk/phylmd/yoethf.f90

module yoethf_m

  ! From phylmd/yoethf.inc, version 1.1.1.1 2004/05/19 12:53:09
  ! Derived constants specific to ECMWF thermodynamics

  use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv

  implicit none

  ! Constants used for computation of saturation mixing ratio over
  ! liquid water (r.les) or ice (r.ies):
  real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
  real, parameter:: R5LES = R3LES * (RTT - R4LES)
  real, parameter:: R5IES = R3IES * (RTT - R4IES)

  real, parameter:: RVTMP2 = RCPV / RCPD - 1.
  real, parameter:: RHOH2O = RATM / 100. ! density of liquid water
  real, parameter:: R2ES = RESTT * RD / RV

  private ratm, rcpd, rcpv, rd, restt, rtt, rv

end module yoethf_m
1	module yoethf_m
2
3	! From phylmd/yoethf.inc, version 1.1.1.1 2004/05/19 12:53:09
4	! Derived constants specific to ECMWF thermodynamics
5
6	use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv
7
8	implicit none
9
10	! Constants used for computation of saturation mixing ratio over
11	! liquid water (r.les) or ice (r.ies):
12	real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
13	real, parameter:: R5LES = R3LES * (RTT - R4LES)
14	real, parameter:: R5IES = R3IES * (RTT - R4IES)
15
16	real, parameter:: RVTMP2 = RCPV / RCPD - 1.
17	real, parameter:: RHOH2O = RATM / 100. ! density of liquid water
18	real, parameter:: R2ES = RESTT * RD / RV
19
20	private ratm, rcpd, rcpv, rd, restt, rtt, rv
21
22	end module yoethf_m