diff options
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 00f9b28..88decb5 100644 --- a/interface.ccl +++ b/interface.ccl @@ -2,3 +2,38 @@ # $Header$ implements: legoexcision + +inherits: spacemask, grid + +SUBROUTINE ExcisionFindBoundary(CCTK_INT OUT ierr, \ + CCTK_REAL INOUT ARRAY mask, \ + CCTK_INT IN ni, \ + CCTK_INT IN nj, \ + CCTK_INT IN nk) +PROVIDES FUNCTION ExcisionFindBoundary WITH excision_findboundary \ + LANGUAGE Fortran + +SUBROUTINE ExcisionExtrapolate(CCTK_INT OUT ierr, \ + CCTK_REAL INOUT ARRAY var, \ + CCTK_REAL IN ARRAY oldvar, \ + CCTK_REAL IN ARRAY mask, \ + CCTK_REAL IN ARRAY dirx, \ + CCTK_REAL IN ARRAY diry, \ + CCTK_REAL IN ARRAY dirz, \ + CCTK_INT IN ni, \ + CCTK_INT IN nj, \ + CCTK_INT IN nk, \ + CCTK_REAL IN var0) +PROVIDES FUNCTION ExcisionExtrapolate WITH excision_extrapolate \ + LANGUAGE Fortran + +SUBROUTINE ExcisionFindNormals(CCTK_INT OUT ierr, \ + CCTK_REAL IN ARRAY mask, \ + CCTK_REAL IN ARRAY dirx, \ + CCTK_REAL IN ARRAY diry, \ + CCTK_REAL IN ARRAY dirz, \ + CCTK_INT IN ni, \ + CCTK_INT IN nj, \ + CCTK_INT IN nk) +PROVIDES FUNCTION ExcisionFindNormals WITH excision_findnormals \ + LANGUAGE Fortran |