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

Diff of /trunk/phylmd/suphec.f

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

revision 265 by guez, Mon Feb 5 10:39:38 2018 UTC revision 266 by guez, Thu Apr 19 17:54:55 2018 UTC
# Line 53  module suphec_m Line 53  module suphec_m
53    
54    real, parameter:: RMO3 = 47.9942    real, parameter:: RMO3 = 47.9942
55    REAL, parameter:: RKAPPA = RD/RCPD    REAL, parameter:: RKAPPA = RD/RCPD
56    real, save:: RETV    real, parameter:: RETV = RV / RD - 1.
57    
58    ! A1.5, 6 Thermodynamic liquid, solid phases    ! A1.5, 6 Thermodynamic liquid, solid phases
59    
# Line 110  contains Line 110  contains
110    
111      RCVD = RCPD-RD      RCVD = RCPD-RD
112      RCVV = RCPV-RV      RCVV = RCPV-RV
     RETV = RV / RD - 1.  
113      print *, 'Thermodynamics, gas'      print *, 'Thermodynamics, gas'
114      print *, "rd = ", RD, "J K-1 kg-1"      print *, "rd = ", RD, "J K-1 kg-1"
115      print *, "rv = ", RV, "J K-1 kg-1"      print *, "rv = ", RV, "J K-1 kg-1"
Legend:
Removed from v.265  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21