From 3e586c94d336749136296688eec3af21686e0319 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Tue, 17 May 2011 20:26:33 -0300 Subject: [PATCH] Fix finding of dxmin in find_new_timestep(). --- src/evolution.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/evolution.F90 b/src/evolution.F90 index bcd9922..88e1bfb 100644 --- a/src/evolution.F90 +++ b/src/evolution.F90 @@ -249,17 +249,17 @@ module evolution end do ! meta blocks + end if ! maxlev > 1 + ! find the smallest spacial step ! #if NDIMS == 2 - dxmin = min(adx(lev), ady(lev)) + dxmin = min(adx(lev), ady(lev)) #endif /* NDIMS == 2 */ #if NDIMS == 3 - dxmin = min(adx(lev), ady(lev), adz(lev)) + dxmin = min(adx(lev), ady(lev), adz(lev)) #endif /* NDIMS == 3 */ - end if ! maxlev > 1 - ! iterate over all data blocks in order to find the maximum speed among them ! pdata => list_data