--- trunk/dyn3d/exner_hyb.f	2014/03/26 17:18:58	91
+++ trunk/dyn3d/exner_hyb.f	2014/09/11 15:09:15	107
@@ -64,7 +64,7 @@
 
     if (present(pkf)) then
        pkf = pk
-       CALL filtreg(pkf, size(pkf, 2), llm, 2, 1, .TRUE.)
+       CALL filtreg(pkf, direct = .true., intensive = .true.)
     end if
 
   END SUBROUTINE exner_hyb