--- trunk/libf/dyn3d/divergf.f90	2012/08/01 14:13:57	63
+++ 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