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,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