--- trunk/libf/dyn3d/divergf.f90	2012/01/30 14:37:26	60
+++ trunk/libf/dyn3d/divergf.f90	2012/08/29 14:47:17	64
@@ -6,7 +6,7 @@
 
   SUBROUTINE divergf(klevel, x, y, div)
 
-    ! From libf/dyn3d/divergf.F, v 1.1.1.1 2004/05/19 12:53:05
+    ! From libf/dyn3d/divergf.F, version 1.1.1.1 2004/05/19 12:53:05
 
     ! P. Le Van
     ! Calcule la divergence à tous les niveaux d'un vecteur de
@@ -55,7 +55,7 @@
        ENDDO
     end DO
 
-    CALL filtreg(div, jjp1, klevel, 2, 2, .TRUE., 1)
+    CALL filtreg(div, jjp1, klevel, 2, 2, .TRUE.)
 
     DO l = 1, klevel
        DO ij = iip2, ip1jm