--- trunk/Sources/dyn3d/leapfrog.f	2015/05/06 15:51:03	137
+++ trunk/Sources/dyn3d/leapfrog.f	2015/07/07 17:49:23	154
@@ -170,9 +170,9 @@
        end if
 
        IF (MOD(itau + 1, iphysiq) == 0 .AND. iflag_phys /= 0) THEN
-          CALL calfis(itau / day_step + day_ini, &
-               REAL(mod(itau, day_step)) / day_step, ucov, vcov, teta, q, pk, &
-               phis, phi, w, dufi, dvfi, dtetafi, dqfi, &
+          CALL calfis(ucov, vcov, teta, q, pk, phis, phi, w, dufi, dvfi, &
+               dtetafi, dqfi, dayvrai = itau / day_step + day_ini, &
+               time = REAL(mod(itau, day_step)) / day_step, &
                lafin = itau + 1 == itaufin)
 
           CALL addfi(ucov, vcov, teta, q, dufi, dvfi, dtetafi, dqfi)
@@ -216,7 +216,7 @@
 
        IF (MOD(itau + 1, iecri * day_step) == 0) THEN
           CALL geopot(teta, pk, pks, phis, phi)
-          CALL writehist(itau, vcov, ucov, teta, phi, q, masse, ps)
+          CALL writehist(itau, vcov, ucov, teta, phi, masse, ps)
        END IF
     end do time_integration