diff options
| author | miguel <miguel@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2001-03-29 20:43:51 +0000 |
|---|---|---|
| committer | miguel <miguel@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2001-03-29 20:43:51 +0000 |
| commit | f939a28e1365870360f0690d0e1e593996265c91 (patch) | |
| tree | 4b13564b91ea45d6bdbf8f1b71c02bc62796fd9e /src/findnormals.F90 | |
| parent | 493e8934577359563d12e68710dfbc749178aeec (diff) | |
Taking out ccthgh
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@9 f75ba9e5-694f-0410-ac2c-87ea7ce7132b
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, |