--- trunk/libf/dyn3d/leapfrog.f90	2012/04/20 14:58:43	61
+++ trunk/libf/dyn3d/leapfrog.f90	2012/08/29 14:47:17	64
@@ -106,7 +106,7 @@
     call assert(shape(ucov) == (/iim + 1, jjm + 1, llm/), "leapfrog")
 
     itaufin = nday * day_step
-    ! "day_step" is a multiple of "iperiod", therefore "itaufin" is one too
+    ! "day_step" is a multiple of "iperiod", therefore so is "itaufin".
 
     dq = 0.
 
@@ -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: