libf/phylmd/YOETHF.f90

module yoethf

  ! From phylmd/YOETHF.inc,v 1.1.1.1 2004/05/19 12:53:09
  !    DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS

  implicit none

  REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
  ! CONSTANTS USED FOR COMPUTATION OF SATURATION
  !                MIXING RATIO OVER LIQUID WATER(R_LES) OR
  !                ICE(R_IES).

  REAL RVTMP2, RHOH2O
  !     RVTMP2  RVTMP2=RCPV/RCPD-1.
  !     RHOH2O  DENSITY OF LIQUID WATER.   (RATM/100.)

  save

end module yoethf
1	module yoethf
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	REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
9	! CONSTANTS USED FOR COMPUTATION OF SATURATION
10	! MIXING RATIO OVER LIQUID WATER(R_LES) OR
11	! ICE(R_IES).
12
13	REAL RVTMP2, RHOH2O
14	! RVTMP2 RVTMP2=RCPV/RCPD-1.
15	! RHOH2O DENSITY OF LIQUID WATER. (RATM/100.)
16
17	save
18
19	end module yoethf