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

Pick nearest URR temperature when using multipole

Browse source
This commit is contained in:
Paul Romano 2016-09-02 12:57:01 -05:00
parent c4357ba177
commit 176b925389
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cross_section.F90
View file

@ -158,9 +158,10 @@ contains
E <= nuc % multipole % end_E/1.0e6_8) then
use_mp = .true.
else
! If using multipole data but outside the RRR, just pick the first
! temperature
i_temp = 1
! If using multipole data but outside the RRR, pick the nearest
! temperature. Note that there is no tolerance here, so this
! temperature could be very far off!
i_temp = minloc(abs(nuclides(i_nuclide) % kTs - kT), dim=1)
end if
else
! If not using multipole data, do a linear search on temperature