Index: LMDZ6/trunk/libf/phylmd/clesphys.h
===================================================================
--- LMDZ6/trunk/libf/phylmd/clesphys.h	(revision 3319)
+++ LMDZ6/trunk/libf/phylmd/clesphys.h	(revision 3327)
@@ -56,4 +56,7 @@
        Real f_rugoro,z0min
 
+! tau_gl : constante de rappel de la temperature a la surface de la glace
+       REAL tau_gl
+
 !IM lev_histhf  : niveau sorties 6h
 !IM lev_histday : niveau sorties journalieres
@@ -105,5 +108,5 @@
      &     , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min,pbl_lmixmin_alpha  &
      &     , fmagic, pmagic                                             &
-     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min                     &
+     &     , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
      &     , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
      &     , z0m_seaice,z0h_seaice                                      &
Index: LMDZ6/trunk/libf/phylmd/ocean_forced_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/ocean_forced_mod.F90	(revision 3319)
+++ LMDZ6/trunk/libf/phylmd/ocean_forced_mod.F90	(revision 3327)
@@ -162,5 +162,5 @@
     USE dimphy
     USE calcul_fluxs_mod
-    USE surface_data,     ONLY : calice, calsno, tau_gl
+    USE surface_data,     ONLY : calice, calsno
     USE limit_read_mod
     USE fonte_neige_mod,  ONLY : fonte_neige
Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3319)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 3327)
@@ -1267,4 +1267,11 @@
     IF (debut) THEN
        CALL suphel ! initialiser constantes et parametres phys.
+! tau_gl : constante de rappel de la temperature a la surface de la glace - en
+       tau_gl=5.
+       CALL getin_p('tau_gl', tau_gl)
+! tau_gl : constante de rappel de la temperature a la surface de la glace - en
+! secondes
+       tau_gl=86400.*tau_gl
+       print*,'debut physiq_mod tau_gl=',tau_gl
        CALL getin_p('iflag_alp_wk_cond', iflag_alp_wk_cond) 
        CALL getin_p('random_notrig_max',random_notrig_max)
Index: LMDZ6/trunk/libf/phylmd/surface_data.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/surface_data.F90	(revision 3319)
+++ LMDZ6/trunk/libf/phylmd/surface_data.F90	(revision 3327)
@@ -7,5 +7,4 @@
 
   REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
-  REAL, PARAMETER        :: tau_gl=86400.*5.
   REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)