--- trunk/libf/dyn3d/Dissipation/gradiv2.f90	2012/04/20 14:58:43	61
+++ trunk/dyn3d/Dissipation/gradiv2.f90	2013/11/15 18:45:49	76
@@ -10,14 +10,14 @@
     ! P. Le Van
     ! Calcul du gradient de la divergence du vecteur v.
 
-    USE dimens_m, ONLY : iim, jjm, llm
-    use divergf_m, only: divergf
-    USE comgeom, ONLY : cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, &
+    USE comgeom, ONLY: cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, &
          unsapolsga1
-    USE filtreg_m, ONLY : filtreg
+    USE dimens_m, ONLY: iim, jjm, llm
+    use divergf_m, only: divergf
+    USE filtreg_m, ONLY: filtreg
     use grad_m, only: grad
-    use nr_util, only: assert_eq, assert
     use laplacien_m, only: laplacien
+    use nr_util, only: assert_eq, assert
 
     ! Composantes covariantes de v :
     REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, klevel)
@@ -53,7 +53,7 @@
        END DO
     ENDIF
 
-    CALL filtreg(div, jjm + 1, klevel, 2, 1, .TRUE., 1)
+    CALL filtreg(div, jjm + 1, klevel, 2, 1, .TRUE.)
     CALL grad(klevel, div, gdx, gdy)
     nugrads = (-1.)**ld * cdivu