--- trunk/phylmd/Interface_surf/interfsur_lim.f	2018/12/03 17:52:21	311
+++ trunk/phylmd/Interface_surf/interfsur_lim.f	2018/12/07 14:17:11	312
@@ -27,9 +27,6 @@
 
     ! Local:
 
-    logical, save:: deja_lu_sur
-    ! jour \`a lire d\'ej\`a lu pour une surface pr\'ec\'edente
-
     integer:: jour_lu_sur = - 1
 
     ! Champs lus dans le fichier de conditions aux limites :
@@ -39,10 +36,8 @@
 
     !------------------------------------------------------------
 
-    if (jour - jour_lu_sur /= 0) deja_lu_sur = .false.
-
     ! Tester d'abord si c'est le moment de lire le fichier
-    if (mod(itap - 1, lmt_pas) == 0 .and. .not. deja_lu_sur) then
+    if (mod(itap - 1, lmt_pas) == 0 .and. jour /= jour_lu_sur) then
        call NF95_OPEN('limit.nc', NF90_NOWRITE, ncid)
 
        ! Lecture Albedo
@@ -54,7 +49,6 @@
        call NF95_GET_VAR(ncid, varid, rug_lu, start=(/1, jour/))
 
        call NF95_CLOSE(ncid)
-       deja_lu_sur = .true.
        jour_lu_sur = jour
     endif