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

Removed in_lower_universe attribute and changed test for reflection in lower universe.

Browse source
This commit is contained in:
Paul Romano 2012-01-18 18:34:01 -05:00
parent 7ba2b4d9ac
commit c9ebf2424f
2 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/geometry.F90
View file

@ -149,7 +149,6 @@ contains
! CELL CONTAINS LOWER UNIVERSE, RECURSIVELY FIND CELL
! Create new level of coordinates
p % in_lower_universe = .true.
allocate(p % coord % next)
! Move particle to next level and set universe
@ -187,7 +186,6 @@ contains
else
! Create new level of coordinates
p % in_lower_universe = .true.
allocate(p % coord % next)
! adjust local position of particle
@ -284,7 +282,7 @@ contains
! PARTICLE REFLECTS FROM SURFACE
! Do not handle reflective boundary conditions on lower universes
if (p % in_lower_universe) then
if (.not. associated(p % coord, p % coord0)) then
message = "Cannot reflect particle " // trim(to_str(p % id)) // &
" off surface in a lower universe."
call fatal_error()

2
src/particle_header.F90
View file

@ -39,7 +39,6 @@ module particle_header
integer :: type ! Particle type (n, p, e, etc)
! Particle coordinates
logical :: in_lower_universe ! is particle in lower universe?
type(LocalCoord), pointer :: coord0 => null() ! coordinates on universe 0
type(LocalCoord), pointer :: coord => null() ! coordinates on lowest universe
@ -107,7 +106,6 @@ contains
allocate(p % coord0)
p % coord0 % universe = BASE_UNIVERSE
p % coord => p % coord0
p % in_lower_universe = .false.
end subroutine initialize_particle