From a27f8f216e5b76e09d4859f5d406db771da16bc9 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Thu, 3 May 2012 10:40:01 -0400
Subject: [PATCH] Fixed bug which caused runtime error with Intel compiler and
 DEBUG turned on.

---
 src/mesh.F90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mesh.F90 b/src/mesh.F90
index dab15645f3..64cee3a64f 100644
--- a/src/mesh.F90
+++ b/src/mesh.F90
@@ -286,6 +286,9 @@ contains
     ym1 = m % upper_right(2)
     zm1 = m % upper_right(3)
 
+    ! Set default value for intersects
+    intersects = .false.
+
     ! Check if line intersects bottom surface -- calculate the intersection
     ! point (y,z)
     yi = y0 + (xm0 - x0) * (y1 - y0) / (x1 - x0)