diff --git a/sources/evolution.F90 b/sources/evolution.F90
index ee67f5f..3063bae 100644
--- a/sources/evolution.F90
+++ b/sources/evolution.F90
@@ -1880,7 +1880,7 @@ module evolution
 ! local variables
 !
     integer      :: i
-    real(kind=8) :: ds, dh
+    real(kind=8) :: ds
     real(kind=8) :: tm, dtm
 !
 !-------------------------------------------------------------------------------
@@ -2034,8 +2034,7 @@ module evolution
 !
 ! prepare times
 !
-    dh  = 0.5d+00 * dt
-    tm  = time + dh
+    tm  = time + dt
     dtm = ds
 
 ! update fluxes
@@ -2085,7 +2084,7 @@ module evolution
 
 ! prepare times
 !
-      tm  = time + dh + i * ds
+      tm  = time + (i - n) * ds
       dtm = ds
 
 ! update fluxes