diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77')
| -rw-r--r-- | CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 index 5f2af0b6d..3d5a31469 100644 --- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 +++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 @@ -129,6 +129,8 @@ c Local declarations parameter (zero=0, one=1) integer table + save table + data table /-1/ character fbound*100 CCTK_INT fboundlen @@ -182,12 +184,16 @@ c ------------------------------------------------------------- c Apply the outer boundary conditions c ----------------------------------- + if (table.eq.-1) then + + call Util_TableCreateFromString (table, "LIMIT=0.0 SPEED=1.0") + if (table.lt.0) call CCTK_WARN (0, "internal error") + + end if + call CCTK_FortranString (fboundlen, bound, fbound) if (fboundlen.lt.0) call CCTK_WARN (0, "internal error") - call Util_TableCreateFromString (table, "LIMIT=0.0 SPEED=1.0") - if (table.lt.0) call CCTK_WARN (0, "internal error") - ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, 1, table, $ "fowavetoy::scalarevolve", fbound) if (ierr.ne.0) call CCTK_WARN (0, "internal error") @@ -195,7 +201,4 @@ c ----------------------------------- $ "fowavetoy::scalarevolve_derivs", fbound) if (ierr.ne.0) call CCTK_WARN (0, "internal error") - call Util_TableDestroy (ierr, table) - if (ierr.ne.0) call CCTK_WARN (0, "internal error") - end |