crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Make sure k_generation and entropy are cleared before loading state point

Browse source
This commit is contained in:
Paul Romano 2018-02-08 15:34:39 -06:00
parent dacf650eaf
commit 899b6b6799
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/simulation.F90
View file

@ -434,6 +434,13 @@ contains
allocate(filter_matches(n_filters))
!$omp end parallel
! Reset global variables -- this is done before loading state point (as that
! will potentially populate k_generation and entropy)
current_batch = 0
call k_generation % clear()
call entropy % clear()
need_depletion_rx = .false.
! If this is a restart run, load the state point data and binary source
! file
if (restart_run) then
@ -452,12 +459,6 @@ contains
end if
end if
! Reset global variables
current_batch = 0
call k_generation % clear()
call entropy % clear()
need_depletion_rx = .false.
! Set flag indicating initialization is done
simulation_initialized = .true.