--- trunk/libf/dyn3d/divergf.f90	2012/04/20 14:58:43	61
+++ trunk/libf/dyn3d/divergf.f90	2012/08/29 14:47:17	64
@@ -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