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

Merge branch 'master' into cmfd

Browse source
This commit is contained in:
Bryan Herman 2012-01-09 13:25:28 -05:00
commit eb0db6febe
2 changed files with 24 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

34
src/cross_section.F90
View file

@ -191,8 +191,8 @@ contains
integer, intent(in) :: index_nuclide ! index into nuclides array
integer, intent(in) :: index_sab ! index into sab_tables array
integer :: IE_sab ! index on S(a,b) energy grid
real(8) :: f_sab ! interp factor on S(a,b) energy grid
integer :: IE ! index on S(a,b) energy grid
real(8) :: f ! interp factor on S(a,b) energy grid
real(8) :: inelastic ! S(a,b) inelastic cross section
real(8) :: elastic ! S(a,b) elastic cross section
type(SAB_Table), pointer :: sab => null()
@ -205,17 +205,17 @@ contains
! Get index and interpolation factor for inelastic grid
if (p%E < sab % inelastic_e_in(1)) then
IE_sab = 1
f_sab = ZERO
IE = 1
f = ZERO
else
IE_sab = binary_search(sab % inelastic_e_in, sab % n_inelastic_e_in, p%E)
f_sab = (p%E - sab%inelastic_e_in(IE_sab)) / &
(sab%inelastic_e_in(IE_sab+1) - sab%inelastic_e_in(IE_sab))
IE = binary_search(sab % inelastic_e_in, sab % n_inelastic_e_in, p%E)
f = (p%E - sab%inelastic_e_in(IE)) / &
(sab%inelastic_e_in(IE+1) - sab%inelastic_e_in(IE))
end if
! Calculate S(a,b) inelastic scattering cross section
inelastic = (ONE-f_sab) * sab % inelastic_sigma(IE_sab) + f_sab * &
sab % inelastic_sigma(IE_sab + 1)
inelastic = (ONE - f) * sab % inelastic_sigma(IE) + f * &
sab % inelastic_sigma(IE + 1)
! Check for elastic data
if (p % E < sab % threshold_elastic) then
@ -229,24 +229,24 @@ contains
! cross section will be zero
elastic = ZERO
else
IE_sab = binary_search(sab % elastic_e_in, sab % n_elastic_e_in, p%E)
elastic = sab % elastic_P(IE_sab) / p % E
IE = binary_search(sab % elastic_e_in, sab % n_elastic_e_in, p%E)
elastic = sab % elastic_P(IE) / p % E
end if
else
! Determine index on elastic energy grid
if (p % E < sab % elastic_e_in(1)) then
IE_sab = 1
IE = 1
else
IE_sab = binary_search(sab % elastic_e_in, sab % n_elastic_e_in, p%E)
IE = binary_search(sab % elastic_e_in, sab % n_elastic_e_in, p%E)
end if
! Get interpolation factor for elastic grid
f_sab = (p%E - sab%elastic_e_in(IE_sab))/(sab%elastic_e_in(IE_sab+1) - &
sab%elastic_e_in(IE_sab))
f = (p%E - sab%elastic_e_in(IE))/(sab%elastic_e_in(IE+1) - &
sab%elastic_e_in(IE))
! Calculate S(a,b) elastic scattering cross section
elastic = (ONE-f_sab) * sab % elastic_P(IE_sab) + f_sab * &
sab % elastic_P(IE_sab + 1)
elastic = (ONE - f) * sab % elastic_P(IE) + f * &
sab % elastic_P(IE + 1)
end if
else
! No elastic data

8
src/physics.F90
View file

@ -498,6 +498,8 @@ contains
! Sample velocity of target nucleus
if (.not. micro_xs(index_nuclide) % use_ptable) then
call sample_target_velocity(p, nuc, v_t)
else
v_t = ZERO
end if
! Velocity of center-of-mass
@ -608,7 +610,11 @@ contains
! Sample a Bragg edge between 1 and i
prob = prn() * sab % elastic_P(i+1)
k = binary_search(sab % elastic_P(1:i+1), i+1, prob)
if (prob < sab % elastic_P(1)) then
k = 1
else
k = binary_search(sab % elastic_P(1:i+1), i+1, prob)
end if
! Characteristic scattering cosine for this Bragg egg
mu = ONE - 2.0*sab % elastic_e_in(k) / p % E