diff options
| author | Erik Schnetter <schnetter@cct.lsu.edu> | 2010-10-01 15:20:07 -0500 |
|---|---|---|
| committer | Barry Wardell <barry.wardell@gmail.com> | 2011-12-14 18:25:26 +0000 |
| commit | 673d981e37b81792b1c6b304cc3078daebb6dbc4 (patch) | |
| tree | 3d4fe90aa777c862095c4f3f0983ba3b822e1b92 /Carpet/CarpetReduce/interface.ccl | |
| parent | f430b7f50ff5799cd2144e47738aadc399a9d760 (diff) | |
CarpetReduce: Correct errors in calculating the weight function
Diffstat (limited to 'Carpet/CarpetReduce/interface.ccl')
| -rw-r--r-- | Carpet/CarpetReduce/interface.ccl | 30 |
1 files changed, 27 insertions, 3 deletions
diff --git a/Carpet/CarpetReduce/interface.ccl b/Carpet/CarpetReduce/interface.ccl index 73a0ed7ef..641ede55a 100644 --- a/Carpet/CarpetReduce/interface.ccl +++ b/Carpet/CarpetReduce/interface.ccl @@ -14,12 +14,14 @@ uses include header: typeprops.hh uses include header: loopcontrol.h -CCTK_INT FUNCTION \ + + +CCTK_INT FUNCTION \ SymmetryTableHandleForGrid (CCTK_POINTER_TO_CONST IN cctkGH) REQUIRES FUNCTION SymmetryTableHandleForGrid -CCTK_INT FUNCTION \ - MultiPatch_GetMap \ +CCTK_INT FUNCTION \ + MultiPatch_GetMap \ (CCTK_POINTER_TO_CONST IN cctkGH) USES FUNCTION MultiPatch_GetMap @@ -42,6 +44,28 @@ CCTK_INT FUNCTION \ CCTK_INT OUT ARRAY shiftout) REQUIRES FUNCTION GetBoundarySpecification +CCTK_INT FUNCTION \ + GetDomainSpecification \ + (CCTK_INT IN size, \ + CCTK_REAL OUT ARRAY physical_min, \ + CCTK_REAL OUT ARRAY physical_max, \ + CCTK_REAL OUT ARRAY interior_min, \ + CCTK_REAL OUT ARRAY interior_max, \ + CCTK_REAL OUT ARRAY exterior_min, \ + CCTK_REAL OUT ARRAY exterior_max, \ + CCTK_REAL OUT ARRAY spacing) +USES FUNCTION GetDomainSpecification + +# Get current refinement level +CCTK_INT FUNCTION \ + GetRefinementLevel \ + (CCTK_POINTER_TO_CONST IN cctkGH) +REQUIRES FUNCTION GetRefinementLevel + +INT iweight TYPE=gf TAGS='prolongation="none" InterpNumTimelevels=1 checkpoint="no"' "Integer weight mask, using 2^D bits" + REAL weight TYPE=gf TAGS='prolongation="none" InterpNumTimelevels=1 checkpoint="no"' "Weight function" + +REAL one TYPE=gf TAGS='prolongation="none" InterpNumTimelevels=1 checkpoint="no"' "Constant one" |