--- trunk/dyn3d/bernoui.f	2014/09/09 12:54:30	106
+++ trunk/dyn3d/bernoui.f	2014/09/11 15:09:15	107
@@ -22,7 +22,7 @@
     !-----------------------------------------------------------------------
 
     bern = phi + ecin
-    CALL filtreg(bern, jjm + 1, llm, 2, 1, .TRUE.)
+    CALL filtreg(bern, direct = .true., intensive = .true.)
 
   END SUBROUTINE bernoui