--- trunk/dyn3d/Dissipation/nxgraro2.f	2014/03/05 14:57:53	82
+++ trunk/Sources/dyn3d/Dissipation/nxgraro2.f	2015/05/06 15:51:03	137
@@ -12,8 +12,9 @@
     ! 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
 
     ! Composantes covariantes de v :
     REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, :)
@@ -49,7 +50,7 @@
        CALL laplacien_rotgam(klevel, rot, rot)
     ENDDO
 
-    CALL filtreg(rot, jjm, klevel, 2, 1, .FALSE.)
+    CALL filtreg_v(rot, intensive = .true.)
     CALL nxgrad(klevel, rot, grx, gry)
 
     nugradrs = (-1.)**lr * crot