From 89f8d5536953be92155a978903d750553af355d2 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 17 Feb 2023 17:26:51 -0500 Subject: [PATCH] Got rid of Netcdf open/close of files during a discard --- src/swiftest/swiftest_discard.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/swiftest/swiftest_discard.f90 b/src/swiftest/swiftest_discard.f90 index 707ed19ca..6af0c9a8f 100644 --- a/src/swiftest/swiftest_discard.f90 +++ b/src/swiftest/swiftest_discard.f90 @@ -41,7 +41,6 @@ module subroutine swiftest_discard_system(self, param) end if if (ltp_discards.or.lpl_discards) then - call nc%open(param) if (lpl_discards) then if (param%lenergy) call self%conservation_report(param, lterminal=.false.) call pl_discards%setup(0,param) @@ -49,7 +48,6 @@ module subroutine swiftest_discard_system(self, param) if (ltp_discards) then call tp_discards%setup(0,param) end if - call nc%close() end if end associate