--- trunk/dyn3d/Dissipation/nxgraro2.f	2014/09/11 15:09:15	107
+++ trunk/dyn3d/Dissipation/nxgraro2.f	2018/03/20 09:35:59	265
@@ -11,8 +11,8 @@
     ! P. Le Van
     ! Calcul de nxgrad(rot) du vecteur v
 
-    USE dimens_m, ONLY: iim, jjm
-    USE filtreg_m, ONLY: filtreg
+    USE dimensions, ONLY: iim, jjm
+    USE filtreg_v_m, ONLY: filtreg_v
     use nr_util, only: assert, assert_eq
     use rotatf_m, only: rotatf
 
@@ -50,7 +50,7 @@
        CALL laplacien_rotgam(klevel, rot, rot)
     ENDDO
 
-    CALL filtreg(rot, direct = .true., intensive = .true.)
+    CALL filtreg_v(rot, intensive = .true.)
     CALL nxgrad(klevel, rot, grx, gry)
 
     nugradrs = (-1.)**lr * crot