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

Set root universe in find_cell if not set

Browse source
This commit is contained in:
Paul Romano 2018-03-14 07:32:11 -05:00
parent 0bbdd412c9
commit f86ff8bf1a
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/geometry.F90
View file

@ -206,9 +206,12 @@ contains
end do
j = p % n_coord
! Determine universe (if not set, use root universe
! Determine universe (if not yet set, use root universe)
i_universe = p % coord(j) % universe
if (i_universe == NONE) i_universe = root_universe
if (i_universe == NONE) then
p % coord(j) % universe = root_universe
i_universe = root_universe
end if
! set size of list to search
if (present(search_cells)) then