--- trunk/libf/dyn3d/Dissipation/gradiv2.f90	2012/08/01 14:13:57	63
+++ trunk/libf/dyn3d/Dissipation/gradiv2.f90	2012/08/29 14:47:17	64
@@ -53,7 +53,7 @@
        END DO
     ENDIF
 
-    CALL filtreg(div, jjm + 1, klevel, 2, 1, .TRUE., 1)
+    CALL filtreg(div, jjm + 1, klevel, 2, 1, .TRUE.)
     CALL grad(klevel, div, gdx, gdy)
     nugrads = (-1.)**ld * cdivu