diff options
| -rw-r--r-- | src/extrapolate.F90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/extrapolate.F90 b/src/extrapolate.F90 index ff374cc..aa79d83 100644 --- a/src/extrapolate.F90 +++ b/src/extrapolate.F90 @@ -48,9 +48,9 @@ subroutine excision_extrapolate (ierr, var, oldvar, & do j=2,nj-1 do i=2,ni-1 if (mask(i,j,k)==MASK_BOUNDARY) then - ii = i + dirx(i,j,k) - jj = j + diry(i,j,k) - kk = k + dirz(i,j,k) + ii = i + int(dirx(i,j,k)) + jj = j + int(diry(i,j,k)) + kk = k + int(dirz(i,j,k)) var(i,j,k) = oldvar(i,j,k) + var(ii,jj,kk) - oldvar(ii,jj,kk) else if (mask(i,j,k)==MASK_EXCISED) then var(i,j,k) = var0 @@ -58,7 +58,7 @@ subroutine excision_extrapolate (ierr, var, oldvar, & end do end do end do - + ierr = 0 - + end subroutine excision_extrapolate |