From 019e2ee30134887302c1413f60c5f13bbfe8a5ff Mon Sep 17 00:00:00 2001
From: allen <allen@daab82bb-f315-4ad1-b6d0-9353ff8b6e27>
Date: Fri, 18 Jul 2003 17:13:02 +0000
Subject: Changes to use of new boundary infrastructure

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@56 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
---
 param.ccl       |  2 +-
 src/WaveToy.F90 | 19 +++++--------------
 2 files changed, 6 insertions(+), 15 deletions(-)

diff --git a/param.ccl b/param.ccl
index 9e3d28f..cceb2bc 100644
--- a/param.ccl
+++ b/param.ccl
@@ -1,7 +1,7 @@
 # Parameter definitions for thorn WaveToyFreeF90
 # $Header$
 
-private:
+restricted:
  
 KEYWORD bound "Type of boundary condition to use"
 {
diff --git a/src/WaveToy.F90 b/src/WaveToy.F90
index ae52391..12c3df7 100644
--- a/src/WaveToy.F90
+++ b/src/WaveToy.F90
@@ -44,7 +44,7 @@ subroutine WaveToyFreeF90_Evolution(CCTK_ARGUMENTS)
   CCTK_REAL :: dx2i,dy2i,dz2i
 
   CCTK_REAL :: factor
-    
+  
   ! Set up shorthands
   ! -----------------
   dx = CCTK_DELTA_SPACE(1)
@@ -114,15 +114,7 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS)
   DECLARE_CCTK_FUNCTIONS
   CCTK_INT Boundary_SelectVarForBC
   
-  integer :: ierr
-  integer, dimension(3):: sw(3)=1
-  CCTK_REAL, parameter :: zero = 0.0
-  CCTK_REAL, parameter :: one = 1.0
-  CCTK_REAL :: finf
-  integer :: npow
-
-  finf = 1.0d0
-  npow = 1
+  CCTK_INT :: ierr=0
 
 ! Apply the symmetry boundary conditions on any coordinate axes
 ! -------------------------------------------------------------
@@ -150,13 +142,12 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS)
     ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, &
       "wavetoy::phi", "Scalar");
   else if (CCTK_EQUALS(bound,"none")) then
-!     Do nothing
-  else
-    call CCTK_WARN(0,"Unrecognized boundary condition")
+    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, &
+      "wavetoy::phi", "None");
   end if
 
   if (ierr < 0)  then
-     call CCTK_WARN(0,"WaveToyFreeF90_Boundaries: Boundary conditions not applied")
+     call CCTK_WARN(0,"WaveToyFreeF90_Boundaries: Error selecting boundary condition")
   end if
   
 end subroutine WaveToyFreeF90_Boundaries
-- 
cgit v1.2.3