--- trunk/dyn3d/Dissipation/gradiv2.f	2014/08/29 13:00:05	103
+++ trunk/dyn3d/Dissipation/gradiv2.f	2014/09/11 15:09:15	107
@@ -53,7 +53,7 @@
        END DO
     ENDIF
 
-    CALL filtreg(div, jjm + 1, klevel, 2, 1, .TRUE.)
+    CALL filtreg(div, direct = .true., intensive = .true.)
     CALL grad(klevel, div, gdx, gdy)
     nugrads = (-1.)**ld * cdivu