--- trunk/libf/phylmd/Interface_surf/interface_surf.f90	2013/07/08 18:12:18	71
+++ trunk/libf/phylmd/Interface_surf/interface_surf.f90	2013/07/23 13:00:07	72
@@ -11,6 +11,30 @@
 
   REAL, ALLOCATABLE, DIMENSION(:, :), SAVE :: tmp_rriv, tmp_rcoa, tmp_rlic
   ! pour simuler la fonte des glaciers antarctiques
-  REAL, save :: tau_calv
+
+  REAL, save :: tau_calv 
+  ! temps de relaxation pour la fonte des glaciers, en jours
+
+contains
+
+  subroutine conf_interface
+
+    ! From phylmd/conf_phys.F90, version 1.7 2005/07/05 07:21:23
+
+    ! Configuration de l'interace atm/surf
+
+    use unit_nml_m, only: unit_nml
+
+    namelist /conf_interface_nml/ tau_calv
+
+    !------------------------------------------------------
+
+    tau_calv = 360.*10.
+
+    print *, "Enter namelist 'conf_interface_nml'."
+    read(unit=*, nml=conf_interface_nml)
+    write(unit_nml, nml=conf_interface_nml)
+
+  end subroutine conf_interface
 
 END MODULE interface_surf