crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Removed calculated of prompt nu which was never actually used anywhere.

Browse source
This commit is contained in:
Paul Romano 2012-07-26 11:29:35 -04:00
parent 54a06e3321
commit 365b76f85b
1 changed files with 1 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/physics.F90
View file

@ -5,7 +5,7 @@ module physics
use cross_section, only: calculate_xs
use endf, only: reaction_name
use error, only: fatal_error, warning
use fission, only: nu_total, nu_prompt, nu_delayed
use fission, only: nu_total, nu_delayed
use geometry, only: find_cell, distance_to_boundary, cross_surface, &
cross_lattice
use geometry_header, only: Universe, BASE_UNIVERSE
@ -851,7 +851,6 @@ contains
real(8) :: E ! incoming energy of neutron
real(8) :: E_out ! outgoing energy of fission neutron
real(8) :: nu_t ! total nu
real(8) :: nu_p ! prompt nu
real(8) :: nu_d ! delayed nu
real(8) :: mu ! fission neutron angular cosine
real(8) :: phi ! fission neutron azimuthal angle
@ -882,13 +881,6 @@ contains
! Determine total nu
nu_t = nu_total(nuc, E)
! Determine prompt nu
if (nuc % nu_p_type == NU_NONE) then
nu_p = nu_t
else
nu_p = nu_prompt(nuc, E)
end if
! Determine delayed nu
nu_d = nu_delayed(nuc, E)