--- trunk/dyn3d/laplacien_rot.f	2014/03/05 14:57:53	82
+++ trunk/Sources/dyn3d/laplacien_rot.f	2015/04/29 15:47:56	134
@@ -17,6 +17,8 @@
   USE paramet_m
   USE comgeom
   USE filtreg_m, ONLY: filtreg
+  use rotatf_m, only: rotatf
+
   IMPLICIT NONE
 
 
@@ -24,7 +26,7 @@
   ! ..........    variables  en  arguments     .............
 
   INTEGER, INTENT (IN) :: klevel
-  REAL rotin(ip1jm, klevel), rotout(ip1jm, klevel)
+  REAL rotin(iim + 1, jjm, klevel), rotout(ip1jm, klevel)
 
   ! ..........    variables   locales       ................
 
@@ -32,7 +34,7 @@
   ! ........................................................
 
 
-  CALL filtreg(rotin, jjm, klevel, 2, 1, .FALSE.)
+  CALL filtreg(rotin, direct = .true., intensive = .true.)
 
   CALL nxgrad(klevel, rotin, ghx, ghy)
   CALL rotatf(klevel, ghx, ghy, rotout)