crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fix particle restart runs

Browse source
This commit is contained in:
Paul Romano 2019-01-09 23:36:00 -06:00
parent 39cf5a8ce7
commit cf48405ee9
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/particle_restart.F90
View file

@ -10,6 +10,7 @@ module particle_restart
use nuclide_header, only: micro_xs, n_nuclides
use output, only: print_particle
use particle_header
use photon_header, only: micro_photon_xs, n_elements
use random_lcg, only: set_particle_seed
use settings
use simulation_header
@ -45,7 +46,8 @@ contains
!$omp parallel
allocate(micro_xs(n_nuclides))
!$omp end parallel
allocate(micro_photon_xs(n_elements))
!$omp end parallel
call set_micro_xs()
! Initialize the particle to be tracked