/[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 37 by guez, Tue Dec 21 15:45:48 2010 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 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,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    ! Constants used for computation of saturation mixing ratio over
9    ! CONSTANTS USED FOR COMPUTATION OF SATURATION MIXING RATIO OVER    ! liquid water (r_les) or ice (r_ies):
10    ! LIQUID WATER (R_LES) OR ICE (R_IES)    REAL R2ES, R5LES, R5IES
11      real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
12    
13    REAL RVTMP2 ! RCPV / RCPD - 1.    REAL RVTMP2
14    real RHOH2O ! DENSITY OF LIQUID WATER (RATM / 100.)    real RHOH2O ! density of liquid water
15    
16    save    save
17    
18  end module yoethf  contains
19    
20      subroutine yoethf
21    
22        ! Calcul des constantes pour les fonctions thermodynamiques
23    
24        use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv
25    
26        !-----------------------------------------
27    
28        RVTMP2=RCPV/RCPD-1.
29        RHOH2O=RATM/100.
30        R2ES=RESTT*RD/RV
31        R5LES=R3LES*(RTT-R4LES)
32        R5IES=R3IES*(RTT-R4IES)
33    
34      end subroutine yoethf
35    
36    end module yoethf_m
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21