From 25b8dcd7a37563b0fdc4cb26013decaa150240c5 Mon Sep 17 00:00:00 2001 From: Sterling Harper Date: Mon, 13 Aug 2018 15:27:35 -0400 Subject: [PATCH] Don't deactive tallies in openmc_reset --- src/api.F90 | 9 --------- src/tallies/tally_header.F90 | 1 + 2 files changed, 1 insertion(+), 9 deletions(-) diff --git a/src/api.F90 b/src/api.F90 index cc9120c7b..f7e896b7c 100644 --- a/src/api.F90 +++ b/src/api.F90 @@ -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() diff --git a/src/tallies/tally_header.F90 b/src/tallies/tally_header.F90 index 6442d5800..4c78fd6da 100644 --- a/src/tallies/tally_header.F90 +++ b/src/tallies/tally_header.F90 @@ -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