Small correction to CFL time-stepping (#630)

MFlowCode · Sep 18, 2024 · bf37331 · bf37331
1 parent 17eb3de
commit bf37331
Show file tree

Hide file tree

Showing 7 changed files with 85 additions and 283 deletions.
diff --git a/src/simulation/m_start_up.fpp b/src/simulation/m_start_up.fpp
@@ -1102,13 +1102,13 @@ contains
         integer :: i, j, k, l
 
         if (cfl_dt) then
-            if (cfl_const_dt .and. t_step == 1) call s_compute_dt()
+            if (cfl_const_dt .and. t_step == 0) call s_compute_dt()
 
             if (cfl_adap_dt) call s_compute_dt()
 
             if (t_step == 0) dt_init = dt
 
-            if (dt < 1d-3*dt_init) call s_mpi_abort("Delta t has become too small")
+            if (dt < 1d-3*dt_init .and. cfl_adap_dt) call s_mpi_abort("Delta t has become too small")
         end if
 
         if (cfl_dt) then

diff --git a/tests/37FA2CEF/golden-metadata.txt b/tests/37FA2CEF/golden-metadata.txt