trunk/phylmd/yoethf.f

module yoethf_m

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

  implicit none

  ! Constants used for computation of saturation mixing ratio over
  ! liquid water (r_les) or ice (r_ies):
  REAL R2ES, R5LES, R5IES
  real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66

  REAL RVTMP2
  real RHOH2O ! density of liquid water

  save

contains

  subroutine yoethf

    ! Calcul des constantes pour les fonctions thermodynamiques

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

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

    RVTMP2=RCPV/RCPD-1.
    RHOH2O=RATM/100.
    R2ES = RESTT * RD / RV
    R5LES=R3LES*(RTT-R4LES)
    R5IES=R3IES*(RTT-R4IES)

  end subroutine yoethf

end module yoethf_m
1	module yoethf_m
2
3	! From phylmd/yoethf.inc,v 1.1.1.1 2004/05/19 12:53:09
4	! Derived constants specific to ECMWF thermodynamics
5
6	implicit none
7
8	! Constants used for computation of saturation mixing ratio over
9	! liquid water (r_les) or ice (r_ies):
10	REAL R2ES, R5LES, R5IES
11	real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
12
13	REAL RVTMP2
14	real RHOH2O ! density of liquid water
15
16	save
17
18	contains
19
20	subroutine yoethf
21
22	! Calcul des constantes pour les fonctions thermodynamiques
23
24	use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv
25
26	!-----------------------------------------
27
28	RVTMP2=RCPV/RCPD-1.
29	RHOH2O=RATM/100.
30	R2ES = RESTT * RD / RV
31	R5LES=R3LES*(RTT-R4LES)
32	R5IES=R3IES*(RTT-R4IES)
33
34	end subroutine yoethf
35
36	end module yoethf_m