--- trunk/dyn3d/laplacien_rot.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/laplacien_rot.f	2018/02/05 10:39:38	254
@@ -16,7 +16,9 @@
   USE dimens_m
   USE paramet_m
   USE comgeom
-  USE filtreg_m, ONLY: filtreg
+  USE filtreg_v_m, ONLY: filtreg_v
+  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_v(rotin, intensive = .true.)
 
   CALL nxgrad(klevel, rotin, ghx, ghy)
   CALL rotatf(klevel, ghx, ghy, rotout)