From 68a39a28e49a9dac84f751d3f588ebdf7fabcfeb Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@gkowal.info>
Date: Sun, 15 May 2011 13:55:52 -0300
Subject: [PATCH] Look for dxmin only once in find_new_timestep().

---
 src/evolution.F90 | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/src/evolution.F90 b/src/evolution.F90
index 92e7135..bcd9922 100644
--- a/src/evolution.F90
+++ b/src/evolution.F90
@@ -230,15 +230,6 @@ module evolution
     cmax   = 1.0d-16
     lev    = 1
 
-! initiate the smallest spacial step
-!
-#if NDIMS == 2
-    dxmin = min(adx(lev), ady(lev))
-#endif /* NDIMS == 2 */
-#if NDIMS == 3
-    dxmin = min(adx(lev), ady(lev), adz(lev))
-#endif /* NDIMS == 3 */
-
 ! if maxlev > 1, find the highest level
 !
     if (maxlev .gt. 1) then