--- trunk/dyn3d/Dissipation/nxgraro2.f	2014/09/11 15:09:15	107
+++ trunk/Sources/dyn3d/Dissipation/nxgraro2.f	2015/05/06 15:51:03	137
@@ -12,7 +12,7 @@
     ! Calcul de nxgrad(rot) du vecteur v
 
     USE dimens_m, ONLY: iim, jjm
-    USE filtreg_m, ONLY: filtreg
+    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