--- trunk/dyn3d/divergf.f	2014/09/09 12:54:30	106
+++ trunk/Sources/dyn3d/divergf.f	2015/04/29 15:47:56	134
@@ -41,7 +41,7 @@
             / apols
     end DO
 
-    CALL filtreg(div, jjm + 1, klevel, 2, 2, .TRUE.)
+    CALL filtreg(div, direct = .true., intensive = .false.)
 
     DO l = 1, klevel
        div(:, 2:jjm, l) = div(:, 2:jjm, l) * unsaire_2d(:, 2:jjm)