--- trunk/phylmd/Interface_surf/calcul_fluxs.f	2014/07/02 18:39:15	99
+++ trunk/phylmd/Interface_surf/calcul_fluxs.f	2014/07/07 17:45:21	101
@@ -98,7 +98,7 @@
        !!CALL flush(6)
     ENDIF
 
-    if (size(coastalflow) /= knon .AND. nisurf == is_ter) then
+    if (size(run_off) /= knon .AND. nisurf == is_ter) then
        write(*, *)'Bizarre, le nombre de points continentaux'
        write(*, *)'a change entre deux appels. J''arrete ...'
        abort_message='Pb run_off'