Changes to use of new boundary infrastructure

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@100 4451c3c6-1034-4891-99ea-21147727ccdf

2 files changed, 8 insertions, 23 deletions

diff --git a/param.ccl b/param.ccl
index dd0f4d3..6e5cbf3 100644
--- a/param.ccl
+++ b/param.ccl
@@ -1,7 +1,7 @@
 # Parameter definitions for thorn WaveToyF77
 # $Header$
 
-private:
+restricted:
  
 KEYWORD bound "Type of boundary condition to use"
 {
@@ -13,4 +13,4 @@ KEYWORD bound "Type of boundary condition to use"
   "zero"      :: "Zero boundary condition"
 } "none"
 
-
+ 
\ No newline at end of file
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index fc361b8..30908dc 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -112,24 +112,9 @@ c     ----------------
       CCTK_INT Boundary_SelectVarForBC
 
 c     Local declarations
-      CCTK_REAL zero,one
-      CCTK_REAL finf
-      integer npow
-      integer ierr
-      integer sw(3)
+      CCTK_INT ierr
 
-      ierr = -1
-      zero = 0.0
-      one = 1.0
-
-      npow = 1
-      finf = 1.0d0
-
-c     Set the stencil width
-c     ---------------------
-      sw(1)=1  
-      sw(2)=1
-      sw(3)=1
+      ierr = 0
 
 c     Apply the symmetry boundary conditions on any coordinate axes
 c     -------------------------------------------------------------
@@ -156,12 +141,12 @@ c     be passed
          ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
      $        "wavetoy::phi", "Scalar");
       else if (CCTK_EQUALS(bound,"none")) then
-c     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,"Boundary conditions not applied - giving up!")
+        call CCTK_WARN(0,"WaveToyF77_Boundaries: Error selecting boundary condition")
       end if
 
       return