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

Diff of /trunk/phylmd/yoethf.f

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

trunk/libf/phylmd/YOETHF.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/phylmd/yoethf.f revision 266 by guez, Thu Apr 19 17:54:55 2018 UTC
# Line 1  Line 1 
1  module yoethf  module yoethf_m
2    
3    ! From phylmd/YOETHF.inc,v 1.1.1.1 2004/05/19 12:53:09    ! From phylmd/yoethf.inc, version 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      use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv
7    
8    implicit none    implicit none
9    
10    REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES    ! Constants used for computation of saturation mixing ratio over
11    ! CONSTANTS USED FOR COMPUTATION OF SATURATION    ! liquid water (r.les) or ice (r.ies):
12    !                MIXING RATIO OVER LIQUID WATER(R_LES) OR    real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
13    !                ICE(R_IES).    real, parameter:: R5LES=R3LES*(RTT-R4LES)
14      real, parameter:: R5IES=R3IES*(RTT-R4IES)
15    REAL RVTMP2, RHOH2O  
16    !     RVTMP2  RVTMP2=RCPV/RCPD-1.    real, parameter:: RVTMP2=RCPV/RCPD-1.
17    !     RHOH2O  DENSITY OF LIQUID WATER.   (RATM/100.)    real, parameter:: RHOH2O=RATM/100. ! density of liquid water
18      real, parameter:: R2ES = RESTT * RD / RV
19    
20    save    private ratm, rcpd, rcpv, rd, restt, rtt, rv
21    
22  end module yoethf  end module yoethf_m
Legend:
Removed from v.3  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21