Fix finding of dxmin in find_new_timestep().

This commit is contained in:
Grzegorz Kowal 2011-05-17 20:26:33 -03:00
parent e68a189916
commit 3e586c94d3

View File

@ -249,6 +249,8 @@ module evolution
end do ! meta blocks end do ! meta blocks
end if ! maxlev > 1
! find the smallest spacial step ! find the smallest spacial step
! !
#if NDIMS == 2 #if NDIMS == 2
@ -258,8 +260,6 @@ module evolution
dxmin = min(adx(lev), ady(lev), adz(lev)) dxmin = min(adx(lev), ady(lev), adz(lev))
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
end if ! maxlev > 1
! iterate over all data blocks in order to find the maximum speed among them ! iterate over all data blocks in order to find the maximum speed among them
! !
pdata => list_data pdata => list_data