diff options
| author | rideout <rideout@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-05-05 22:39:12 +0000 |
|---|---|---|
| committer | rideout <rideout@4451c3c6-1034-4891-99ea-21147727ccdf> | 2003-05-05 22:39:12 +0000 |
| commit | 699699acc6f2ef6ddc48d3682c5a5b544a23ca4a (patch) | |
| tree | 9ad4515550addca4f1235f95cd79a703a9a9a4eb | |
| parent | 15df3ee4d81c465ae2c794ee80e8dbd9774e6300 (diff) | |
Support for new method of handling boundary widths for boundary conditions.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@97 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | interface.ccl | 6 | ||||
| -rw-r--r-- | src/WaveToy.F77 | 12 |
2 files changed, 9 insertions, 9 deletions
diff --git a/interface.ccl b/interface.ccl index cfe4baf..914d3b2 100644 --- a/interface.ccl +++ b/interface.ccl @@ -14,6 +14,6 @@ cctk_real scalarevolve type = GF Timelevels=3 } "The evolved scalar field" CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER IN GH, \ - CCTK_INT IN faces, CCTK_INT IN table_handle, CCTK_STRING IN var_name, \ - CCTK_STRING IN bc_name) -USES FUNCTION Boundary_SelectVarForBC
\ No newline at end of file + CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, \ + CCTK_STRING IN var_name, CCTK_STRING IN bc_name) +USES FUNCTION Boundary_SelectVarForBC diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 8a0edfd..60d1a59 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -141,22 +141,22 @@ c Note: In each of the following calls to Boundary_SelectVarForBC, c default arguments are used, so an invalid table handle of -1 can c be passed if (CCTK_EQUALS(bound,"flat")) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "Flat"); else if (CCTK_EQUALS(bound,"static")) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "Static"); else if (CCTK_EQUALS(bound,"radiation")) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "Radiation"); else if (CCTK_EQUALS(bound,"robin")) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "Robin"); else if (CCTK_EQUALS(bound,"zero")) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "Scalar"); else if (CCTK_EQUALS(bound,"none")) then - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "None"); else call CCTK_WARN(0,"Unrecognized boundary condition") |