--- trunk/libf/phylmd/cvthermo.h	2008/02/27 13:16:39	3
+++ trunk/phylmd/cvthermo.f90	2013/11/15 18:45:49	76
@@ -1,15 +1,14 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/cvthermo.h,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
-!
-c Thermodynamical constants for convectL:
+module cvthermo
 
-      real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
-      real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl
-      real eps, epsi, epsim1
-      real ginv, hrd
-      real grav
+  ! From LMDZ4/libf/phylmd/cvthermo.h,v 1.1.1.1 2004/05/19 12:53:09
+  ! Thermodynamical constants for convectL
 
-      COMMON /cvthermo/ cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
-     :                 ,clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl 
-     :                 ,eps, epsi, epsim1, ginv, hrd, grav
+  implicit none
 
+  real cpd, cpv, cl, rrv, rrd, lv0, g, rowl, t0
+  real clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl
+  real eps, epsi, epsim1
+  real ginv, hrd
+  real grav
+
+end module cvthermo