--- trunk/dyn3d/leapfrog.f	2018/03/07 13:33:15	261
+++ trunk/dyn3d/leapfrog.f	2018/03/20 09:35:59	265
@@ -23,7 +23,7 @@
     USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, &
          iflag_phys, iecri
     USE conf_guide_m, ONLY: ok_guide
-    USE dimens_m, ONLY: iim, jjm, llm, nqmx
+    USE dimensions, ONLY: iim, jjm, llm, nqmx
     use dissip_m, only: dissip
     USE dynetat0_m, ONLY: day_ini
     use dynredem1_m, only: dynredem1
@@ -36,7 +36,6 @@
     use integrd_m, only: integrd
     use nr_util, only: assert
     USE temps, ONLY: itau_dyn
-    use writedynav_m, only: writedynav
     use writehist_m, only: writehist
 
     ! Variables dynamiques:
@@ -203,16 +202,14 @@
        END IF
 
        IF (MOD(itau + 1, iperiod) == 0) THEN
-          ! \'Ecriture du fichier histoire moyenne:
-          CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, &
-               time = itau + 1)
           call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, &
                q(:, :, :, 1))
        ENDIF
 
-       IF (MOD(itau + 1, iecri * day_step) == 0) THEN
+       IF (MOD(itau + 1, iecri) == 0) THEN
           CALL geopot(teta, pk, pks, phis, phi)
-          CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, itau)
+          CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, &
+               itau_w = itau_dyn + itau + 1)
        END IF
     end do time_integration