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

Diff of /trunk/phylmd/suphec.f

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

trunk/Sources/phylmd/suphec.f revision 201 by guez, Mon Jun 6 17:42:15 2016 UTC trunk/phylmd/suphec.f revision 254 by guez, Mon Feb 5 10:39:38 2018 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.254
  ViewVC Help
Powered by ViewVC 1.1.21