Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Got rid of Netcdf open/close of files during a discard
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Feb 17, 2023
1 parent 19e85a5 commit 89f8d55
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/swiftest/swiftest_discard.f90
Original file line number Diff line number Diff line change
Expand Up @@ -41,15 +41,13 @@ 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)
end if
if (ltp_discards) then
call tp_discards%setup(0,param)
end if
call nc%close()
end if

end associate
Expand Down

0 comments on commit 89f8d55

Please sign in to comment.