From ec70fc66caa1657c9e20a7dd255dfbbf5bf17353 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 9 Aug 2021 18:36:53 -0400 Subject: [PATCH] Fixed typo that associated a pl object with a tp one --- src/discard/discard.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/discard/discard.f90 b/src/discard/discard.f90 index 3d65a235d..9c8044c61 100644 --- a/src/discard/discard.f90 +++ b/src/discard/discard.f90 @@ -17,7 +17,7 @@ module subroutine discard_system(self, param) lpl_check = allocated(self%pl_discards) ltp_check = allocated(self%tp_discards) - associate(system => self, tp => self%tp, pl => self%pl, tp_discards => self%tp_discards, pl_discards => self%tp_discards) + associate(system => self, tp => self%tp, pl => self%pl, tp_discards => self%tp_discards, pl_discards => self%pl_discards) lpl_discards = .false. ltp_discards = .false. if (lpl_check) then @@ -31,8 +31,10 @@ module subroutine discard_system(self, param) end if if (lpl_discards .or. ltp_discards) call system%write_discard(param) + if (lpl_discards .and. param%lenergy) call self%conservation_report(param, lterminal=.true.) if (lpl_check) call pl_discards%setup(0,param) if (ltp_check) call tp_discards%setup(0,param) + end associate return