--- trunk/libf/dyn3d/laplacien.f90	2012/04/20 14:58:43	61
+++ trunk/libf/dyn3d/laplacien.f90	2012/09/20 09:57:03	65
@@ -10,10 +10,10 @@
     ! P. Le Van
     ! Calcul de div(grad) de teta.
 
-    use grad_m, only: grad
-    use filtreg_m, only: filtreg
-    use divergf_m, only: divergf
     USE dimens_m, ONLY: llm
+    use divergf_m, only: divergf
+    use filtreg_m, only: filtreg
+    use grad_m, only: grad
     USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1
 
     INTEGER, intent(in):: klevel
@@ -24,7 +24,7 @@
 
     !-----------------------------------------------------------------
 
-    CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE., 1)
+    CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.)
     CALL grad(klevel, teta, ghx, ghy)
     CALL divergf(klevel, ghx, ghy, teta)