diff options
Diffstat (limited to 'src/surface_integral.c')
| -rw-r--r-- | src/surface_integral.c | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/src/surface_integral.c b/src/surface_integral.c index 28a407c..83490d0 100644 --- a/src/surface_integral.c +++ b/src/surface_integral.c @@ -21,6 +21,21 @@ CCTK_INT find_closest(const cGH *cctkGH, CCTK_INT *cctk_lsh, CCTK_REAL *cctk_delta_space, CCTK_INT ghost, + CCTK_REAL *coord, CCTK_REAL coord_min, CCTK_INT dir); + +void ADMMass_Surface(CCTK_ARGUMENTS); + +void ADMMass_Surface_Global(CCTK_ARGUMENTS); + +void ADMMass_Surface_Lapse(CCTK_ARGUMENTS); + +void ADMMass_Surface_Lapse_Global(CCTK_ARGUMENTS); + + + + +CCTK_INT find_closest(const cGH *cctkGH, CCTK_INT *cctk_lsh, + CCTK_REAL *cctk_delta_space, CCTK_INT ghost, CCTK_REAL *coord, CCTK_REAL coord_min, CCTK_INT dir) { CCTK_INT i, ijk, min_i = -1; @@ -87,7 +102,7 @@ void ADMMass_Surface(CCTK_ARGUMENTS) { if (!CCTK_EQUALS(CCTK_ParameterValString("type", "cartgrid3d"), "coordbase")) - CCTK_WARN(0,"This thorn used with the ADMMass_distance_from_grid_boundar parameter requires to set coordinates through coordbase."); + CCTK_WARN(0,"This thorn used with the ADMMass_distance_from_grid_boundary parameter requires to set coordinates through coordbase."); /* Find the physical coordinates of the boundaries */ ierr = GetDomainSpecification( 3, physical_min, physical_max, @@ -356,7 +371,7 @@ void ADMMass_Surface_Lapse_Global(CCTK_ARGUMENTS) reduction_handle = CCTK_ReductionHandle("sum"); if (reduction_handle < 0) - CCTK_WARN(0, "Unable to ge reduction handle."); + CCTK_WARN(0, "Unable to get reduction handle."); if (CCTK_Reduce(cctkGH, -1, reduction_handle, 1, CCTK_VARIABLE_REAL, |