--- trunk/libf/phylmd/cvparam.h	2011/09/20 09:14:34	51
+++ trunk/libf/phylmd/CV_routines/cvparam.f90	2011/09/23 12:28:01	52
@@ -1,28 +1,24 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/cvparam.h,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
-!
-c------------------------------------------------------------
-c Parameters for convectL:
-c (includes - microphysical parameters, 
-c			- parameters that control the rate of approach 
-c               to quasi-equilibrium)
-c			- noff & minorig (previously in input of convect1)
-c------------------------------------------------------------
+module cvparam
 
-      integer noff, minorig, nl, nlp, nlm
-      real elcrit, tlcrit
-      real entp
-      real sigs, sigd
-      real omtrain, omtsnow, coeffr, coeffs
-      real dtmax
-      real cu
-      real betad
-      real alpha, damp
-      real delta
+  ! From LMDZ4/libf/phylmd/cvparam.h,v 1.1.1.1 2004/05/19 12:53:08
 
-      COMMON /cvparam/ noff, minorig, nl, nlp, nlm
-     :                ,elcrit, tlcrit
-     :                ,entp, sigs, sigd
-     :                ,omtrain, omtsnow, coeffr, coeffs
-     :                ,dtmax, cu, betad, alpha, damp, delta
+  ! Parameters for convectL:
+  ! (includes - microphysical parameters, 
+  !			- parameters that control the rate of approach 
+  !               to quasi-equilibrium)
+  !			- noff & minorig (previously in input of convect1)
 
+  implicit none
+
+  integer noff, minorig, nl, nlp, nlm
+  real elcrit, tlcrit
+  real entp
+  real sigs, sigd
+  real omtrain, omtsnow, coeffr, coeffs
+  real dtmax
+  real cu
+  real betad
+  real alpha, damp
+  real delta
+
+end module cvparam