From 4474879bdc1b222681da62f20a2ce41f23ad5a0d Mon Sep 17 00:00:00 2001 From: rideout Date: Mon, 5 May 2003 22:39:12 +0000 Subject: Support for new method of handling boundary widths for boundary conditions. git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@81 f80f6fb6-8356-4fd4-90bc-d84ad503c100 --- interface.ccl | 6 +++--- src/WaveToy.F | 10 +++++----- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/interface.ccl b/interface.ccl index 7ed0691..81ec878 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.F b/src/WaveToy.F index 7f50d31..7e99de7 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -140,16 +140,16 @@ 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 c Face specific calls are not working yet with the new boundary interface: @@ -165,7 +165,7 @@ c call BndScalarDirVN(ierr,cctkGH,swdir,mithree,sval,"wavetoy::phi") c BOUNDARY_ERROR c call BndScalarDirVN(ierr,cctkGH,swdir,ithree ,sval,"wavetoy::phi") c BOUNDARY_ERROR - ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, -1, + ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, $ "wavetoy::phi", "Scalar"); else if (.NOT. CCTK_EQUALS(bound,"none")) then call CCTK_WARN(0,"Unrecognized boundary condition") -- cgit v1.2.3