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	guez	3	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