--- trunk/Sources/phylmd/suphec.f 2016/06/06 17:42:15 201 +++ trunk/Sources/phylmd/suphec.f 2017/01/12 12:31:31 212 @@ -112,7 +112,6 @@ RCVV = RCPV-RV RETV = RV / RD - 1. print *, 'Thermodynamics, gas' - print '('' Ozone mass = '', e13.7)', RMO3 print *, "rd = ", RD, "J K-1 kg-1" print *, "rv = ", RV, "J K-1 kg-1" print '('' Cpd = '', e13.7)', RCPD