From c9312c6d164fb2ded8fe1be3c52f0ab4349a55b8 Mon Sep 17 00:00:00 2001
From: Ian Jauslin <ian.jauslin@rutgers.edu>
Date: Tue, 16 May 2023 18:08:48 -0400
Subject: [PATCH] Adaptive methods: Do not shrink delta when increasing
 stepsize

---
 src/navier-stokes.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/navier-stokes.c b/src/navier-stokes.c
index af780a2..811d4b8 100644
--- a/src/navier-stokes.c
+++ b/src/navier-stokes.c
@@ -701,7 +701,7 @@ int ns_step_rkf45(
       }
     }
     // next delta to use in future steps
-    *next_delta=factor*(*delta)*pow(relative*tolerance/err,0.2);
+    *next_delta=(*delta)*pow(relative*tolerance/err,0.2);
   }
   // error too big: repeat with smaller step
   else{