/[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 38 by guez, Thu Jan 6 17:52:19 2011 UTC trunk/phylmd/yoethf.f revision 88 by guez, Tue Mar 11 15:09:02 2014 UTC
# Line 1  Line 1 
1  module yoethf_m  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    implicit none    implicit none
7    
8    ! Constants used for computation of saturation mixing ratio over    ! Constants used for computation of saturation mixing ratio over
9    ! liquid water (r_les) or ice (r_ies):    ! liquid water (r.les) or ice (r.ies):
10    REAL R2ES, R5LES, R5IES    REAL R2ES, R5LES, R5IES
11    real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66    real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
12    
# Line 27  contains Line 27  contains
27    
28      RVTMP2=RCPV/RCPD-1.      RVTMP2=RCPV/RCPD-1.
29      RHOH2O=RATM/100.      RHOH2O=RATM/100.
30      R2ES=RESTT*RD/RV      R2ES = RESTT * RD / RV
31      R5LES=R3LES*(RTT-R4LES)      R5LES=R3LES*(RTT-R4LES)
32      R5IES=R3IES*(RTT-R4IES)      R5IES=R3IES*(RTT-R4IES)
33    
Legend:
Removed from v.38  
changed lines
  Added in v.88
  ViewVC Help
Powered by ViewVC 1.1.21