From a9038b96cfaae4e7401ad10e85a335b8b2ee6a0a Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Wed, 28 Oct 2020 09:14:08 +0100
Subject: [PATCH] muted Inf detection terminal output
---
src/utility_mod.F90 | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/utility_mod.F90 b/src/utility_mod.F90
index 16dd278c..0d98a599 100644
--- a/src/utility_mod.F90
+++ b/src/utility_mod.F90
@@ -45,7 +45,7 @@ CONTAINS
isi=.TRUE.
END IF
IF((isi).AND.(str.NE.'')) THEN
- WRITE(*,'(a20,a25,i6.6,a20,i1)') str,' = Inf at timestep',cstep, ' and substep',updatetlevel
+ !WRITE(*,'(a20,a25,i6.6,a20,i1)') str,' = Inf at timestep',cstep, ' and substep',updatetlevel
CALL FLUSH(stdout)
END IF
@@ -70,5 +70,3 @@ CONTAINS
END FUNCTION checkfield
END MODULE utility
-
-
--
GitLab