From 68a39a28e49a9dac84f751d3f588ebdf7fabcfeb Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal 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