support for Robin boundary conditions in Wavetoy - for testing of Robin only

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

2 files changed, 4 insertions, 0 deletions

diff --git a/param.ccl b/param.ccl
index 4c545dc..4d915b8 100644
--- a/param.ccl
+++ b/param.ccl
@@ -8,6 +8,7 @@ KEYWORD bound "Type of boundary condition to use"
   "none"      :: "No boundary condition"
   "flat"      :: "Flat boundary condition"
   "radiation" :: "Radiation boundary condition"
+  "robin"     :: "Robin boundary condition"
   "zero"      :: "Zero boundary condition"
 } "none"
 
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 836f2d5..9658beb 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -137,6 +137,9 @@ c     -----------------------------------
       else if (CCTK_Equals(bound,"radiation").eq.1) then
          call BndRadiativeVN(ierr,cctkGH,sw,zero,one,"wavetoy::phi",
      &	      "wavetoy::phi")
+      else if (CCTK_Equals(bound,"robin").eq.1) then
+         call RobinBCVar(ierr,cctkGH,1.0,1,sw,
+     &        "wavetoy::phi")
       end if
 
       if (ierr < 0)  then