--- trunk/libf/dyn3d/divergf.f90	2012/04/20 14:58:43	61
+++ trunk/dyn3d/divergf.f90	2013/11/15 18:45:49	76
@@ -12,10 +12,10 @@
     ! Calcule la divergence à tous les niveaux d'un vecteur de
     ! composantes x et y. x et y sont des composantes covariantes.
 
-    USE dimens_m, ONLY: iim
-    USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1, jjp1
     USE comgeom, ONLY: apoln, apols, cuvsurcv, cvusurcu, unsaire
+    USE dimens_m, ONLY: iim
     USE filtreg_m, ONLY: filtreg
+    USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1, jjp1
 
     INTEGER, intent(in):: klevel
     REAL, intent(in):: x(ip1jmp1, klevel), y(ip1jm, klevel)
@@ -55,7 +55,7 @@
        ENDDO
     end DO
 
-    CALL filtreg(div, jjp1, klevel, 2, 2, .TRUE., 1)
+    CALL filtreg(div, jjp1, klevel, 2, 2, .TRUE.)
 
     DO l = 1, klevel
        DO ij = iip2, ip1jm