diff --git a/src/useful.f90 b/src/useful.f90 index 65a0e8de..77bb4bb6 100644 --- 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.