Don't deactive tallies in openmc_reset

This commit is contained in:
Sterling Harper 2018-08-13 15:27:35 -04:00
parent 3f3f3fb831
commit 25b8dcd7a3
2 changed files with 1 additions and 9 deletions

View file

@ -259,7 +259,6 @@ contains
if (allocated(tallies)) then
do i = 1, size(tallies)
associate (t => tallies(i) % obj)
t % active = .false.
t % n_realizations = 0
if (allocated(t % results)) then
t % results(:, :, :) = ZERO
@ -278,14 +277,6 @@ contains
k_abs_tra = ZERO
k_sum(:) = ZERO
! Clear active tally lists
call active_analog_tallies % clear()
call active_tracklength_tallies % clear()
call active_meshsurf_tallies % clear()
call active_collision_tallies % clear()
call active_surface_tallies % clear()
call active_tallies % clear()
! Reset timers
call time_total % reset()
call time_total % reset()

View file

@ -388,6 +388,7 @@ contains
do i = 1, n_tallies
call tallies(i) % obj % allocate_results()
tallies(i) % obj % active = .false.
end do
end subroutine configure_tallies