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

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2014-07-24 12:51:00 -03:00
commit b875ac4d4d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/refinement.F90
View File

@ -322,7 +322,8 @@ module refinement
! import external procedures and variables ! import external procedures and variables
! !
use blocks , only : block_data use blocks , only : block_data
use coordinates , only : ib, jb, kb, ie, je, ke use coordinates , only : ibl, jbl, kbl
use coordinates , only : ieu, jeu, keu
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -360,15 +361,15 @@ module refinement
! find the maximum smoothness indicator over all cells ! find the maximum smoothness indicator over all cells
! !
do k = kb, ke do k = kbl, keu
#if NDIMS == 3 #if NDIMS == 3
km1 = k - 1 km1 = k - 1
kp1 = k + 1 kp1 = k + 1
#endif /* NDIMS == 3 */ #endif /* NDIMS == 3 */
do j = jb, je do j = jbl, jeu
jm1 = j - 1 jm1 = j - 1
jp1 = j + 1 jp1 = j + 1
do i = ib, ie do i = ibl, ieu
im1 = i - 1 im1 = i - 1
ip1 = i + 1 ip1 = i + 1