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

Fixed bug in use of free gas scattering for H-1.

Browse source
This commit is contained in:
Paul Romano 2013-04-21 22:58:24 -04:00
parent 920a7d4f19
commit a3c5931a08
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/physics.F90
View file

@ -790,7 +790,7 @@ contains
kT = nuc % kT
! Check if energy is above threshold
if (p % E >= FREE_GAS_THRESHOLD * kT) then
if (p % E >= FREE_GAS_THRESHOLD * kT .and. nuc % awr > ONE) then
v_target = ZERO
return
end if