diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77')
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 index 3a0efb628..6a1e3aa4f 100644 --- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 +++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 @@ -134,9 +134,6 @@ c ---------------- CCTK_INT Boundary_SelectGroupForBC c Local declarations - CCTK_REAL zero, one - parameter (zero=0, one=1) - INTEGER bndwidth PARAMETER (bndwidth=1) @@ -151,17 +148,10 @@ c Local declarations CCTK_REAL spher3d_r integer ierr - integer sw(3) CCTK_REAL ri3 c call CCTK_INFO ("FOWaveToyF77_Boundaries") -c Set the stencil width -c --------------------- - sw(1) = cctk_nghostzones(1) - sw(2) = cctk_nghostzones(2) - sw(3) = cctk_nghostzones(3) - c Apply the excision boundary condition c ------------------------------------- if (CCTK_EQUALS(excision_bound, "none")) then |