diff options
Diffstat (limited to 'CarpetExtra/FOWaveToyF77')
-rw-r--r-- | CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 index b8cb5fe86..1450ff325 100644 --- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 +++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 @@ -128,6 +128,8 @@ c Local declarations CCTK_REAL zero, one parameter (zero=0, one=1) + integer table, table_derivs + character fbound*100 CCTK_INT fboundlen @@ -183,16 +185,27 @@ c ----------------------------------- call CCTK_FortranString (fboundlen, bound, fbound) if (fboundlen.lt.0) call CCTK_WARN (0, "internal error") - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + + call Util_TableCreateFromString (table, "LIMIT=1.0 SPEED=1.0") + if (table.lt.0) call CCTK_WARN (0, "internal error") + call Util_TableCreateFromString (table_derivs, "LIMIT=0.0 SPEED=1.0") + if (table_derivs.lt.0) call CCTK_WARN (0, "internal error") + + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table, $ "fowavetoy::phi", fbound) - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs, $ "fowavetoy::pi", fbound) - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs, $ "fowavetoy::phix", fbound) - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs, $ "fowavetoy::phiy", fbound) - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs, $ "fowavetoy::phiz", 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") + call Util_TableDestroy (ierr, table_derivs) + if (ierr.ne.0) call CCTK_WARN (0, "internal error") + end |