--- trunk/libf/dyn3d/leapfrog.f90	2010/04/09 10:56:14	33
+++ trunk/libf/dyn3d/leapfrog.f90	2010/06/02 11:01:12	34
@@ -167,7 +167,7 @@
           time = REAL(mod(itau, day_step)) / day_step + time_0
           IF (time > 1.) time = time - 1.
 
-          CALL calfis(nqmx, itau + 1 == itaufin, rdayvrai, time, ucov, vcov, &
+          CALL calfis(itau + 1 == itaufin, rdayvrai, time, ucov, vcov, &
                teta, q, masse, ps, pk, phis, phi, du, dv, dteta, dq, w, dufi, &
                dvfi, dtetafi, dqfi, dpfi)