diff options
author | schnetter <> | 2003-07-08 18:36:00 +0000 |
---|---|---|
committer | schnetter <> | 2003-07-08 18:36:00 +0000 |
commit | 062a5eb015829c65eaeff1b30d187ac9a09faf19 (patch) | |
tree | 5e7f3a92f3bbe3c825185057ee1ba7fc94a23825 /CarpetExtra | |
parent | 4dd11f5428017e2bb45a7dfdccd91171db6f75cf (diff) |
Make options table persistent.
darcs-hash:20030708183601-07bb3-101f1100fcc8b3da40f60cd452ec1a850f46d2f1.gz
Diffstat (limited to 'CarpetExtra')
-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 |