gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix finding of dxmin in find_new_timestep().

Browse Source
This commit is contained in:
Grzegorz Kowal 2011-05-17 20:26:33 -03:00
parent e68a189916
commit 3e586c94d3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/evolution.F90
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