Added a missing close for the log file at the end of a run

MintonGroup · Sep 15, 2023 · 7aed38d · 7aed38d
1 parent 837535b
commit 7aed38d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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