From b0bf098e20da89e8c0f0dedb0554932c88f28b44 Mon Sep 17 00:00:00 2001
From: Jonathan Schilling <jons@proximafusion.com>
Date: Wed, 23 Oct 2024 11:39:10 +0200
Subject: [PATCH] dump on every funct3d call: debugging messages

---
 Sources/General/funct3d.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Sources/General/funct3d.f b/Sources/General/funct3d.f
index 5f761b7..6843267 100644
--- a/Sources/General/funct3d.f
+++ b/Sources/General/funct3d.f
@@ -361,7 +361,7 @@ SUBROUTINE funct3d_par (lscreen, ier_flag)
 !          RESET FIRST TIME FOR SOFT START
 !
             IF (ivac .EQ. 1) THEN
-               print *, "first Nestor call - force restart"/
+               print *, "first Nestor call - force restart"//
      &                  "via BAD_JACOBIAN logic"
                irst = 2
                delt0 = delt