/[lmdze]/trunk/phylmd/yoethf.f
ViewVC logotype

Diff of /trunk/phylmd/yoethf.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 36 by guez, Wed Feb 27 13:16:39 2008 UTC revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC
# Line 1  Line 1 
1  module yoethf  module yoethf
2    
3    ! From phylmd/YOETHF.inc,v 1.1.1.1 2004/05/19 12:53:09    ! From phylmd/yoethf.inc,v 1.1.1.1 2004/05/19 12:53:09
4    !    DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS    ! DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
5    
6    implicit none    implicit none
7    
8    REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES    REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
9    ! CONSTANTS USED FOR COMPUTATION OF SATURATION    ! CONSTANTS USED FOR COMPUTATION OF SATURATION MIXING RATIO OVER
10    !                MIXING RATIO OVER LIQUID WATER(R_LES) OR    ! LIQUID WATER (R_LES) OR ICE (R_IES)
11    !                ICE(R_IES).  
12      REAL RVTMP2 ! RCPV / RCPD - 1.
13    REAL RVTMP2, RHOH2O    real RHOH2O ! DENSITY OF LIQUID WATER (RATM / 100.)
   !     RVTMP2  RVTMP2=RCPV/RCPD-1.  
   !     RHOH2O  DENSITY OF LIQUID WATER.   (RATM/100.)  
14    
15    save    save
16    
Legend:
Removed from v.36  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.21