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

Added trace message for cells.

Browse source
This commit is contained in:
Paul Romano 2012-03-22 10:16:13 -04:00
parent d050c72d1d
commit 28aa9111de
2 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/geometry.F90
View file

@ -136,6 +136,12 @@ contains
! Set cell on this level
p % coord % cell = index_cell
! Show cell information on trace
if (trace) then
message = " Entering cell " // trim(to_str(c % id))
call write_message()
end if
if (c % type == CELL_NORMAL) then
! =================================================================
! AT LOWEST UNIVERSE, TERMINATE SEARCH

16
src/physics.F90
View file

@ -39,6 +39,11 @@ contains
logical :: found_cell ! found cell which particle is in?
type(LocalCoord), pointer :: coord => null()
if (verbosity >= 9 .or. trace) then
message = "Simulating Particle " // trim(to_str(p % id))
call write_message()
end if
if (p % coord % cell == NONE) then
call find_cell(found_cell)
! Particle couldn't be located
@ -51,17 +56,6 @@ contains
p % cell_born = p % coord % cell
end if
if (verbosity >= 9 .or. trace) then
message = "Simulating Particle " // trim(to_str(p % id))
call write_message()
end if
if (verbosity >= 10 .or. trace) then
message = " Born in cell " // trim(to_str(&
cells(p % coord % cell) % id))
call write_message()
end if
! Initialize number of events to zero
n_event = 0