From 7aed38d73ab77a47f1592019abb14c4cecd1a035 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 15 Sep 2023 16:52:32 -0400 Subject: [PATCH] Added a missing close for the log file at the end of a run --- src/swiftest/swiftest_io.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 56fa50d7f..46551788a 100644 --- a/src/swiftest/swiftest_io.f90 +++ b/src/swiftest/swiftest_io.f90 @@ -317,6 +317,7 @@ module subroutine swiftest_io_display_run_information(self, param, integration_t if (phase_val == -1) then write(param%display_unit, *)" *************** Swiftest stop " // trim(adjustl(param%integrator)) // " *************** " if (param%display_style == "COMPACT") write(*,*) "SWIFTEST STOP" // trim(adjustl(param%integrator)) + if (param%log_output) close(param%display_unit) end if #ifdef COARRAY