diff options
| author | schnetter <> | 2003-06-27 14:44:00 +0000 |
|---|---|---|
| committer | schnetter <> | 2003-06-27 14:44:00 +0000 |
| commit | 6683dda0dfa1b27425c460026390c0704b9f39d8 (patch) | |
| tree | e518ef31a1f19c6369b1705363d7be18759ad1b7 /CarpetExtra/FOWaveToyF77/src | |
| parent | ea582beb0d512a99f6e3658060488c107be4d8e5 (diff) | |
More changes.
darcs-hash:20030627144403-07bb3-eef90b47b87e79f643cba49f2dc68e8b268c1a2a.gz
Diffstat (limited to 'CarpetExtra/FOWaveToyF77/src')
| -rw-r--r-- | CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 | 30 |
1 files changed, 10 insertions, 20 deletions
diff --git a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 index 1450ff325..5f2af0b6d 100644 --- a/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 +++ b/CarpetExtra/FOWaveToyF77/src/FOWaveToy.F77 @@ -121,14 +121,14 @@ c ---------------- DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - external Boundary_SelectVarForBC - CCTK_INT Boundary_SelectVarForBC + external Boundary_SelectGroupForBC + CCTK_INT Boundary_SelectGroupForBC c Local declarations CCTK_REAL zero, one parameter (zero=0, one=1) - integer table, table_derivs + integer table character fbound*100 CCTK_INT fboundlen @@ -185,27 +185,17 @@ c ----------------------------------- call CCTK_FortranString (fboundlen, bound, fbound) if (fboundlen.lt.0) call CCTK_WARN (0, "internal error") - - call Util_TableCreateFromString (table, "LIMIT=1.0 SPEED=1.0") + call Util_TableCreateFromString (table, "LIMIT=0.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, table_derivs, - $ "fowavetoy::pi", fbound) - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs, - $ "fowavetoy::phix", fbound) - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs, - $ "fowavetoy::phiy", fbound) - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, table_derivs, - $ "fowavetoy::phiz", fbound) + + ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, 1, table, + $ "fowavetoy::scalarevolve", fbound) + if (ierr.ne.0) call CCTK_WARN (0, "internal error") + ierr = Boundary_SelectGroupForBC (cctkGH, CCTK_ALL_FACES, 1, table, + $ "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") - call Util_TableDestroy (ierr, table_derivs) - if (ierr.ne.0) call CCTK_WARN (0, "internal error") end |