diff options
Diffstat (limited to 'src/findnormals.F90')
| -rw-r--r-- | src/findnormals.F90 | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/findnormals.F90 b/src/findnormals.F90 index df0ae69..d34f25a 100644 --- a/src/findnormals.F90 +++ b/src/findnormals.F90 @@ -8,8 +8,7 @@ #include "maskvalues.h" -subroutine excision_findnormals (ierr, cctkgh, mask, & - dirx, diry, dirz, ni, nj, nk) +subroutine excision_findnormals (ierr, mask, dirx, diry, dirz, ni, nj, nk) implicit none @@ -21,9 +20,6 @@ subroutine excision_findnormals (ierr, cctkgh, mask, & ! out: zero for success, nonzero for error integer :: ierr - ! in: pointer to Cactus GH - CCTK_POINTER :: cctkgh - ! in: array sizes for grid functions ! (you can pass in cctk_lsh(:) for these) integer :: ni,nj,nk @@ -34,8 +30,7 @@ subroutine excision_findnormals (ierr, cctkgh, mask, & ! out: normal directions to use for interpolation CCTK_REAL :: dirx(ni,nj,nk), diry(ni,nj,nk), dirz(ni,nj,nk) - - + ! distinguish between faces, edges, and corners. ! look at the excised points, and distinguish the following cases, |