diff options
author | schnetter <> | 2003-07-08 21:12:00 +0000 |
---|---|---|
committer | schnetter <> | 2003-07-08 21:12:00 +0000 |
commit | ca9ef5432b81a9678d2b8003465cd66421d7e87a (patch) | |
tree | 9ba700e50d20702b940ebd2ceff92c6e57d02b8d /CarpetExtra/FOWaveToyF77/src | |
parent | 043a28126be50ae3cd06b456e487c22bb48f7e64 (diff) |
Make the width of the boundary a Cactus parameter "bound_width".
darcs-hash:20030708211245-07bb3-04251d647d052d857072f63961daafaec3d05c60.gz
Diffstat (limited to 'CarpetExtra/FOWaveToyF77/src')
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 index 9e6db95bd..829961283 100644 --- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 +++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 @@ -42,9 +42,6 @@ c Declare variables in argument list DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS - - INTEGER bndwidth - PARAMETER (bndwidth=2) INTEGER i,j,k INTEGER istart(3), iend(3) @@ -69,12 +66,12 @@ c ----------------- if (cctk_bbox(2*d-1).eq.0) then istart(d) = 1+cctk_nghostzones(d) else - istart(d) = 1+bndwidth + istart(d) = 1+bound_width end if if (cctk_bbox(2*d).eq.0) then iend(d) = cctk_lsh(d)-cctk_nghostzones(d) else - iend(d) = cctk_lsh(d)-bndwidth + iend(d) = cctk_lsh(d)-bound_width end if end do @@ -134,12 +131,8 @@ c ---------------- CCTK_INT Boundary_SelectGroupForBC c Local declarations - INTEGER bndwidth - PARAMETER (bndwidth=2) - integer table - save table - data table /-1/ + data table /-1/ character fbound*100 CCTK_INT fboundlen @@ -196,10 +189,10 @@ c ----------------------------------- call CCTK_FortranString (fboundlen, bound, fbound) if (fboundlen.lt.0) call CCTK_WARN (0, "internal error") - ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, bndwidth, + ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, bound_width, $ table, "fowavetoy::scalarevolve", fbound) if (ierr.ne.0) call CCTK_WARN (0, "internal error") - ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, bndwidth, + ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, bound_width, $ table, "fowavetoy::scalarevolve_derivs", fbound) if (ierr.ne.0) call CCTK_WARN (0, "internal error") |