From c7ebbb63ef2fe18ed5d738187c8439ed1d0c89ed Mon Sep 17 00:00:00 2001 From: David Minton Date: Thu, 15 Feb 2024 16:29:14 -0500 Subject: [PATCH] Updated base definition so that display_unit has an initial value set to the OUTPUT_UNIT intrinsic --- src/base/base_module.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/base/base_module.f90 b/src/base/base_module.f90 index 605355802..9cff4cff5 100644 --- a/src/base/base_module.f90 +++ b/src/base/base_module.f90 @@ -118,7 +118,7 @@ module base logical :: lrestart = .false. !! Indicates whether or not this is a restarted run character(NAMELEN) :: display_style !! Style of the output display {["STANDARD"], "COMPACT"}). - integer(I4B) :: display_unit !! File unit number for display (either to stdout or to a log file) + integer(I4B) :: display_unit = OUTPUT_UNIT !! File unit number for display (either to stdout or to a log file) logical :: log_output = .false. !! Logs the output to file instead of displaying it on the terminal ! Future features not implemented or in development