diff options
| author | schnetter <> | 2003-07-08 20:04:00 +0000 |
|---|---|---|
| committer | schnetter <> | 2003-07-08 20:04:00 +0000 |
| commit | e940768cbeeb2f162523957bddef72ae82b0db02 (patch) | |
| tree | e0f500569406a67bbc7cd5d60d4c4b750f0637fc /CarpetExtra/FOWaveToyF77 | |
| parent | e012009aa12be53c6277cab9737812cd1d3070b9 (diff) | |
Schedule boundary routine in local, not in level, mode, because it
Schedule boundary routine in local, not in level, mode, because it
applies the excision boundary condition locally.
darcs-hash:20030708200439-07bb3-3e302bcb0905211c240f2dfba21f6f4f118bdd9c.gz
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 |