--- trunk/libf/phylmd/cv_thermo.f90	2012/11/14 16:59:30	68
+++ trunk/libf/phylmd/cv_thermo.f90	2013/02/18 16:33:12	69
@@ -1,14 +1,13 @@
-SUBROUTINE cv_thermo(iflag_con)
+SUBROUTINE cv_thermo
 
   ! Set thermodynamical constants for convectL
 
+  use clesphys2, only: iflag_con
   use SUPHEC_M
   use cvthermo
 
   implicit none
 
-  integer, intent(in):: iflag_con
-
   !-----------------------------------------------------
 
   ! original set from convect: