diff options
| author | pollney <pollney@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2003-09-09 14:49:37 +0000 |
|---|---|---|
| committer | pollney <pollney@f75ba9e5-694f-0410-ac2c-87ea7ce7132b> | 2003-09-09 14:49:37 +0000 |
| commit | 33ec7d1cb74c47a0082682c881cf9aa4f8eb3985 (patch) | |
| tree | 31d9c490304f1931fb3661c45a9594b1aaff1e87 | |
| parent | 444f1b7c9e6633b719bb66e68135242b92f51450 (diff) | |
This is Ian's patch to LegoExcision, which provides a function
aliased interface.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/LegoExcision/trunk@36 f75ba9e5-694f-0410-ac2c-87ea7ce7132b
| -rw-r--r-- | interface.ccl | 35 | ||||
| -rw-r--r-- | param.ccl | 12 | ||||
| -rw-r--r-- | schedule.ccl | 6 | ||||
| -rw-r--r-- | src/make.code.defn | 2 |
4 files changed, 54 insertions, 1 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 @@ -1,2 +1,14 @@ # Parameter definitions for thorn LegoExcision # $Header$ + +KEYWORD fixed_excision "Excise a fixed region?" +{ + "sphere" :: "A sphere about the origin of a given radius" + "cube" :: "A cube about the origin with a given corner" + "none" :: "No fixed excision" +} "none" + +REAL fixed_size "The size (radius or corner location) of the fixed region" +{ + 0:* :: "Positive" +} 1.0 diff --git a/schedule.ccl b/schedule.ccl index b27d880..fa9d462 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -1,2 +1,8 @@ # Schedule definitions for thorn LegoExcision # $Header$ + +schedule Lego_FixedSphere in CCTK_PRESTEP +{ + LANG:Fortran +} "Excise a fixed lego sphere" + diff --git a/src/make.code.defn b/src/make.code.defn index 854a5e8..82aec7c 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -2,7 +2,7 @@ # $Header$ # Source files in this directory -SRCS = extrapolate.F90 findboundary.F90 findnormals.F90 +SRCS = extrapolate.F90 findboundary.F90 findnormals.F90 fixedsphere.F90 # Subdirectories containing source files SUBDIRS = |