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

Diff of /trunk/phylmd/yoethf.f90

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

trunk/phylmd/yoethf.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/phylmd/yoethf.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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      use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv
7    
8    implicit none    implicit none
9    
10    ! Constants used for computation of saturation mixing ratio over    ! Constants used for computation of saturation mixing ratio over
11    ! liquid water (r_les) or ice (r_ies):    ! liquid water (r.les) or ice (r.ies):
   REAL R2ES, R5LES, R5IES  
12    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
13      real, parameter:: R5LES = R3LES * (RTT - R4LES)
14      real, parameter:: R5IES = R3IES * (RTT - R4IES)
15    
16    REAL RVTMP2    real, parameter:: RVTMP2 = RCPV / RCPD - 1.
17    real RHOH2O ! density of liquid water    real, parameter:: RHOH2O = RATM / 100. ! density of liquid water
18      real, parameter:: R2ES = RESTT * RD / RV
   save  
   
 contains  
   
   subroutine yoethf  
   
     ! Calcul des constantes pour les fonctions thermodynamiques  
   
     use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv  
   
     !-----------------------------------------  
   
     RVTMP2=RCPV/RCPD-1.  
     RHOH2O=RATM/100.  
     R2ES = RESTT * RD / RV  
     R5LES=R3LES*(RTT-R4LES)  
     R5IES=R3IES*(RTT-R4IES)  
19    
20    end subroutine yoethf    private ratm, rcpd, rcpv, rd, restt, rtt, rv
21    
22  end module yoethf_m  end module yoethf_m
Legend:
Removed from v.82  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21