Fix finding of dxmin in find_new_timestep().
This commit is contained in:
parent
e68a189916
commit
3e586c94d3
@ -249,17 +249,17 @@ 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
|
||||||
dxmin = min(adx(lev), ady(lev))
|
dxmin = min(adx(lev), ady(lev))
|
||||||
#endif /* NDIMS == 2 */
|
#endif /* NDIMS == 2 */
|
||||||
#if NDIMS == 3
|
#if NDIMS == 3
|
||||||
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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user