--- trunk/libf/phylmd/clmain.f90	2013/06/24 15:39:52	70
+++ trunk/libf/phylmd/clmain.f90	2013/07/08 18:12:18	71
@@ -75,7 +75,7 @@
     INTEGER npas, nexca
     REAL ts(klon, nbsrf) ! input-R- temperature du sol (en Kelvin)
     LOGICAL, INTENT(IN):: soil_model
-    REAL cdmmax, cdhmax ! seuils cdrm, cdrh
+    REAL, INTENT(IN):: cdmmax, cdhmax ! seuils cdrm, cdrh
     REAL ksta, ksta_ter
     LOGICAL ok_kzmin
     REAL ftsoil(klon, nsoilmx, nbsrf)