crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Allow histogram interpolation on incoming energy for law 4.

Browse source
This commit is contained in:
Paul Romano 2014-12-19 14:16:23 -05:00
parent 7b25d531e9
commit 06c6fc50b0
1 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/physics.F90
View file

@ -1572,6 +1572,7 @@ contains
real(8) :: E_max ! parameter for n-body dist
real(8) :: x, y, v ! intermediate variables for n-body dist
real(8) :: r1, r2, r3, r4, r5, r6
logical :: histogram_interp ! use histogram interpolation on incoming energy
! ==========================================================================
! SAMPLE ENERGY DISTRIBUTION IF THERE ARE MULTIPLE
@ -1668,8 +1669,7 @@ contains
NR = int(edist % data(1))
NE = int(edist % data(2 + 2*NR))
if (NR == 1) then
if (master) call warning("Assuming linear-linear interpolation when &
&sampling continuous tabular distribution")
histogram_interp = (edist % data(3) == 1)
else if (NR > 1) then
! call write_particle_restart(p)
call fatal_error("Multiple interpolation regions not supported while &
@ -1693,11 +1693,15 @@ contains
end if
! Sample between the ith and (i+1)th bin
r2 = prn()
if (r > r2) then
l = i + 1
else
if (histogram_interp) then
l = i
else
r2 = prn()
if (r > r2) then
l = i + 1
else
l = i
end if
end if
! interpolation for energy E1 and EK
@ -1776,10 +1780,12 @@ contains
end if
! Now interpolate between incident energy bins i and i + 1
if (l == i) then
E_out = E_1 + (E_out - E_i_1)*(E_K - E_1)/(E_i_K - E_i_1)
else
E_out = E_1 + (E_out - E_i1_1)*(E_K - E_1)/(E_i1_K - E_i1_1)
if (.not. histogram_interp) then
if (l == i) then
E_out = E_1 + (E_out - E_i_1)*(E_K - E_1)/(E_i_K - E_i_1)
else
E_out = E_1 + (E_out - E_i1_1)*(E_K - E_1)/(E_i1_K - E_i1_1)
end if
end if
case (5)