Add warning about reaching fission bank size.

This commit is contained in:
Paul Romano 2014-04-26 11:24:12 -04:00
parent c18eb5f7f1
commit 06fbfe5862

View file

@ -866,6 +866,14 @@ contains
nu = int(nu_t) + 1
end if
! Check for fission bank size getting hit
if (n_bank + nu > size(fission_bank)) then
message = "Maximum number of sites in fission bank reached. This can &
&result in irreproducible results using different numbers of &
&processes/threads."
call warning()
end if
! Bank source neutrons
if (nu == 0 .or. n_bank == size(fission_bank)) return
p % fission = .true. ! Fission neutrons will be banked