--- trunk/phylmd/suphec.f	2018/03/20 09:35:59	265
+++ trunk/phylmd/suphec.f	2018/04/19 17:54:55	266
@@ -53,7 +53,7 @@
 
   real, parameter:: RMO3 = 47.9942
   REAL, parameter:: RKAPPA = RD/RCPD
-  real, save:: RETV
+  real, parameter:: RETV = RV / RD - 1.
 
   ! A1.5, 6 Thermodynamic liquid, solid phases
 
@@ -110,7 +110,6 @@
 
     RCVD = RCPD-RD
     RCVV = RCPV-RV
-    RETV = RV / RD - 1.
     print *, 'Thermodynamics, gas'
     print *, "rd = ", RD, "J K-1 kg-1"
     print *, "rv = ", RV, "J K-1 kg-1"