From 28aa9111de1776adf393121d8c53af98a9182e2b Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Thu, 22 Mar 2012 10:16:13 -0400
Subject: [PATCH] Added trace message for cells.

---
 src/geometry.F90 |  6 ++++++
 src/physics.F90  | 16 +++++-----------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/geometry.F90 b/src/geometry.F90
index 3457719556..fe75d2c4e6 100644
--- a/src/geometry.F90
+++ b/src/geometry.F90
@@ -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
diff --git a/src/physics.F90 b/src/physics.F90
index 8ed65c8c7f..a553a115d8 100644
--- a/src/physics.F90
+++ b/src/physics.F90
@@ -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