--- trunk/libf/dyn3d/leapfrog.f90	2012/07/26 14:37:37	62
+++ trunk/libf/dyn3d/leapfrog.f90	2012/09/20 09:57:03	65
@@ -57,7 +57,7 @@
 
     REAL pks((iim + 1) * (jjm + 1)) ! exner au sol
     REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches
-    REAL pkf((iim + 1) * (jjm + 1), llm) ! exner filt.au milieu des couches
+    REAL pkf(iim + 1, jjm + 1, llm) ! exner filtré au milieu des couches
     REAL phi(iim + 1, jjm + 1, llm) ! geopotential
     REAL w((iim + 1) * (jjm + 1), llm) ! vitesse verticale
 
@@ -129,7 +129,7 @@
           massem1 = masse
           psm1 = ps
           finvmaold = masse
-          CALL filtreg(finvmaold, jjm + 1, llm, - 2, 2, .TRUE., 1)
+          CALL filtreg(finvmaold, jjm + 1, llm, - 2, 2, .TRUE.)
        end if
 
        ! Calcul des tendances dynamiques: