From ef1c2e3670eb8154ccecb84e21f49eda5fb4e258 Mon Sep 17 00:00:00 2001
From: Thomas Gastine <gastine@ipgp.fr>
Date: Tue, 24 Sep 2024 13:34:29 +0200
Subject: [PATCH] bugfix in hit times when dt_* is given and tStart=0.

---
 src/useful.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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.