Fixed typo that associated a pl object with a tp one

MintonGroup · Aug 9, 2021 · ec70fc6 · ec70fc6
1 parent 72834ce
commit ec70fc6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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