diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2003-12-03 22:24:30 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2003-12-03 22:24:30 +0000 |
commit | 75e72eb8d538dd35632d3228cb4cbd059e3942d2 (patch) | |
tree | 3df241aed21c19a18f299dd5465ae76bc9c385db /interface.ccl | |
parent | 1c0f4588c812b958038dadad805af187cb939981 (diff) |
add an ***experimental-not-tested-yet-not-documented-yet***
function-aliasing interface to allow other thorns to find out
the AH shape
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@1221 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'interface.ccl')
-rw-r--r-- | interface.ccl | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/interface.ccl b/interface.ccl index 0ac8643..83cc539 100644 --- a/interface.ccl +++ b/interface.ccl @@ -7,7 +7,33 @@ inherits: Grid ADMBase StaticConformal SpaceMask IO always # include file provided by SpaceMask USES INCLUDE: SpaceMask.h -# aliased function maybe provided by DriftCorrect +# provides aliased functions for various other thorns +# FIXME: this really belongs in Erik Schnetter's "generic surface" thorn +# ... returns local coordinate origin for a given horizon +SUBROUTINE HorizonLocalCoordinateOrigin \ + (CCTK_INT IN horizon_number, \ + CCTK_REAL OUT origin_x, CCTK_REAL OUT origin_y, CCTK_REAL OUT origin_z) +# ... computes horizon radius in the direction of each (x,y,z) point, +# or -1.0 if this horizon wasn't found +# ... more precisely: +# For each (x,y,z), consider the ray from the local coordinate +# origin through (x,y,z). This function computes the Euclidean +# distance between the local coordinate origin and this ray's +# intersection with the horizon, or -1.0 if this horizon wasn't +# found the last time we searched for it. +SUBROUTINE HorizonRadiusInDirection \ + (CCTK_INT IN horizon_number, \ + CCTK_INT IN N_points, \ + CCTK_REAL IN ARRAY x, CCTK_REAL IN ARRAY y, CCTK_REAL IN ARRAY z, \ + CCTK_REAL OUT ARRAY radius) +PROVIDES FUNCTION HorizonLocalCoordinateOrigin \ + WITH AHFinderDirect_local_coordinate_origin \ + LANGUAGE C +PROVIDES FUNCTION HorizonRadiusInDirection \ + WITH AHFinderDirect_radius_in_direction \ + LANGUAGE C + +# uses aliased function maybe provided by DriftCorrect SUBROUTINE SetDriftCorrectPosition(CCTK_POINTER IN GH, CCTK_REAL IN x, \ CCTK_REAL IN y, \ CCTK_REAL IN z) |