--- trunk/phylmd/CV3_routines/cv3_param.f	2014/03/05 14:57:53	82
+++ trunk/Sources/phylmd/CV30_routines/cv30_param.f	2016/03/16 15:04:46	185
@@ -1,8 +1,8 @@
-module cv3_param_m
+module cv30_param_m
 
-  ! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1 2004/05/19 12:53:09
+  ! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1, 2004/05/19 12:53:09
 
-  ! Parameters for iflag_con=3:
+  ! Parameters for Emanuel convection scheme:
   ! - microphysical parameters
   ! - parameters that control the rate of approach to quasi-equilibrium
 
@@ -40,11 +40,11 @@
 
 contains
 
-  SUBROUTINE cv3_param(nd, delt)
+  SUBROUTINE cv30_param(nd, delt)
 
-    ! From LMDZ4/libf/phylmd/cv3_routines.F, version 1.5 2005/07/11 15:20:02
+    ! From LMDZ4/libf/phylmd/cv3_routines.F, version 1.5, 2005/07/11 15:20:02
 
-    ! Set parameters for iflag_con = 3
+    ! Set parameters for Emanuel convection scheme
 
     integer, intent(in):: nd
     real, intent(in):: delt ! timestep (seconds)
@@ -55,7 +55,7 @@
 
     noff = 1
     minorig = 1
-    nl=nd-noff
+    nl = nd - noff
     nlp=nl+1
     nlm=nl-1
 
@@ -92,6 +92,6 @@
 
     betad=10.0 ! original value (from convect 4.3)
 
-  end SUBROUTINE cv3_param
+  end SUBROUTINE cv30_param
 
-end module cv3_param_m
+end module cv30_param_m