/[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 201 by guez, Mon Jun 6 17:42:15 2016 UTC revision 212 by guez, Thu Jan 12 12:31:31 2017 UTC
# Line 112  contains Line 112  contains
112      RCVV = RCPV-RV      RCVV = RCPV-RV
113      RETV = RV / RD - 1.      RETV = RV / RD - 1.
114      print *, 'Thermodynamics, gas'      print *, 'Thermodynamics, gas'
     print '('' Ozone mass = '', e13.7)', RMO3  
115      print *, "rd = ", RD, "J K-1 kg-1"      print *, "rd = ", RD, "J K-1 kg-1"
116      print *, "rv = ", RV, "J K-1 kg-1"      print *, "rv = ", RV, "J K-1 kg-1"
117      print '('' Cpd = '', e13.7)', RCPD      print '('' Cpd = '', e13.7)', RCPD
Legend:
Removed from v.201  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.21