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

Fixed bug in fission events when running an analog calculation (no survival biasing). This caused some fission events to not kill particles.

Browse source
This commit is contained in:
Paul Romano 2011-10-15 22:53:45 -04:00
parent 2c6ae083c5
commit ae9ef677cb
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/physics.f90
View file

@ -472,6 +472,7 @@ contains
scattered = .true.
case (N_FISSION, N_F, N_NF, N_2NF, N_3NF)
call create_fission_sites(p, index_nuclide, rxn, .true.)
p % alive = .false.
case (N_GAMMA : N_DA)
call n_absorption(p)
case default
@ -767,9 +768,6 @@ contains
! increment number of bank sites
n_bank = min(n_bank + nu, 3*n_particles)
! kill original neutron if no survival biasing
if (actual_event) p % alive = .false.
end subroutine create_fission_sites
!===============================================================================