--- trunk/phylmd/Interface_surf/interfsur_lim.f	2014/09/04 10:40:24	105
+++ trunk/phylmd/Interface_surf/interfsur_lim.f	2014/09/09 12:54:30	106
@@ -4,7 +4,7 @@
 
 contains
 
-  SUBROUTINE interfsur_lim(itime, dtime, jour, nisurf, knon, knindex, debut, &
+  SUBROUTINE interfsur_lim(itime, dtime, jour, nisurf, knindex, debut, &
        alb_new, z0_new)
 
     ! Cette routine sert d'interface entre le modèle atmosphérique et
@@ -24,9 +24,8 @@
     integer, intent(IN):: nisurf
     ! index de la surface à traiter (1 = sol continental)
 
-    integer, intent(IN):: knon ! nombre de points dans le domaine a traiter
 
-    integer, intent(in):: knindex(:) ! (klon)
+    integer, intent(in):: knindex(:) ! (knon)
     ! index des points de la surface à traiter
 
     logical, intent(IN):: debut ! premier appel à la physique (initialisation)
@@ -35,6 +34,8 @@
 
     ! Local:
 
+    integer knon ! nombre de points dans le domaine a traiter
+
     integer, save:: lmt_pas ! frequence de lecture des conditions limites
     ! (en pas de physique)
 
@@ -50,6 +51,8 @@
 
     !------------------------------------------------------------
 
+    knon = size(knindex)
+
     if (debut) then
        lmt_pas = nint(86400./dtime * 1.0) ! pour une lecture une fois par jour
        jour_lu_sur = jour - 1