Merge pull request #713 from NCAR/fix-zero-window

prevent hang by erroring out if shortest_time_between_assimilations <=0
NCAR · Aug 29, 2024 · 7d5fd79 · 7d5fd79
2 parents 46bebc0 + 752abd1
commit 7d5fd79
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/assimilation_code/modules/assimilation/obs_model_mod.f90 b/assimilation_code/modules/assimilation/obs_model_mod.f90
@@ -157,6 +157,9 @@ subroutine move_ahead(ens_handle, ens_size, seq, last_key_used, window_time, &
 
 ! Compute the model time step and center a window around the closest time
 delta_time = get_model_time_step()
+if (delta_time <= set_time(0,0)) then
+   call error_handler(E_ERR, 'move_ahead', 'shortest_time_between_assimilations must be > 0', source)
+endif
 
 ! print out current window, if requested
 if (print_trace_details > 0) then