--- trunk/dyn3d/laplacien_rot.f	2014/09/09 12:54:30	106
+++ trunk/dyn3d/laplacien_rot.f	2018/04/19 17:54:55	266
@@ -13,10 +13,13 @@
   ! klevel et rotin  sont des arguments  d'entree pour le s-prog
   ! rotout           est  un argument  de sortie pour le s-prog
 
-  USE dimens_m
+  USE dimensions
   USE paramet_m
   USE comgeom
-  USE filtreg_m, ONLY: filtreg
+  USE filtreg_v_m, ONLY: filtreg_v
+  use nxgrad_m, only: nxgrad
+  use rotatf_m, only: rotatf
+
   IMPLICIT NONE
 
 
@@ -32,7 +35,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)