From 3728b0934c3e99657361621c7150f905a06b715b 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/WaveToyFreeF90/trunk@53 daab82bb-f315-4ad1-b6d0-9353ff8b6e27 --- src/WaveToy.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/WaveToy.F90') diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index 16b1677..4e53edb 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -135,22 +135,22 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) ! 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") -- cgit v1.2.3