trunk/phylmd/yoethf.f90

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	guez	38	module yoethf_m
2	guez	3
3	guez	37	! From phylmd/yoethf.inc,v 1.1.1.1 2004/05/19 12:53:09
4	guez	38	! Derived constants specific to ECMWF thermodynamics
5	guez	3
6			implicit none
7
8	guez	38	! 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	guez	3
13	guez	38	REAL RVTMP2
14			real RHOH2O ! density of liquid water
15	guez	3
16			save
17
18	guez	38	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	guez	70	R2ES = RESTT * RD / RV
31	guez	38	R5LES=R3LES*(RTT-R4LES)
32			R5IES=R3IES*(RTT-R4IES)
33
34			end subroutine yoethf
35
36			end module yoethf_m