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

Fix bug in stochastic volume calculation with void cell

Browse source
This commit is contained in:
Paul Romano 2018-02-01 12:35:29 -06:00
parent b9ae596200
commit ef16a6cb57
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/volume_calc.F90
View file

@ -193,11 +193,13 @@ contains
if (this % domain_type == FILTER_MATERIAL) then
i_material = p % material
do i_domain = 1, size(this % domain_id)
if (materials(i_material) % id == this % domain_id(i_domain)) then
call check_hit(i_domain, i_material, indices, hits, n_mat)
end if
end do
if (i_material /= MATERIAL_VOID) then
do i_domain = 1, size(this % domain_id)
if (materials(i_material) % id == this % domain_id(i_domain)) then
call check_hit(i_domain, i_material, indices, hits, n_mat)
end if
end do
end if
elseif (this % domain_type == FILTER_CELL) THEN
do level = 1, p % n_coord