--- trunk/libf/phylmd/cv_thermo.f90	2011/08/24 11:43:14	49
+++ trunk/Sources/phylmd/cv_thermo.f	2015/04/29 15:47:56	134
@@ -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: