--- trunk/libf/phylmd/Interface_surf/interface_surf.f90	2011/12/06 15:07:04	54
+++ trunk/Sources/phylmd/Interface_surf/interface_surf.f	2017/03/30 14:25:18	217
@@ -5,12 +5,29 @@
 
   IMPLICIT none
 
-  ! run_off ruissellement total
-  REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic
-  real, allocatable, dimension(:), save :: coastalflow, riverflow
-
-  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