bugfix in hit times when dt_* is given and tStart=0.

magic-sph · Sep 24, 2024 · ef1c2e3 · ef1c2e3
1 parent 63f6d57
commit ef1c2e3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/useful.f90 b/src/useful.f90
@@ -62,8 +62,9 @@ logical function l_correct_step(n,t,t_last,n_max,n_step,n_intervals, &
       else if ( n_step /= 0 ) then
          if ( n == n_max .or. mod(n,n_step) == 0 ) l_correct_step=.true.
       end if
+      if ( l_correct_step ) return
 
-      if ( size(times) == 1 .and. times(1) > 0.0_cp ) then
+      if ( size(times) == 1 ) then
          !-- Time array has one single entry for the next output
          if ( times(1) < t .and. times(1) >= t_last ) then
             l_correct_step=.true.