From 22495226c82a63a15394df5b62b24243ad4770c4 Mon Sep 17 00:00:00 2001
From: allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100>
Date: Sat, 18 Sep 1999 17:50:47 +0000
Subject: Fixing radiation boundary conditions

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@17 f80f6fb6-8356-4fd4-90bc-d84ad503c100
---
 src/WaveToy.F | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/WaveToy.F b/src/WaveToy.F
index 3e113f0..eb9bc0f 100644
--- a/src/WaveToy.F
+++ b/src/WaveToy.F
@@ -119,13 +119,14 @@ c     ----------------
       integer CCTK_Equals
       integer,dimension(3):: sw=1
       CCTK_REAL,parameter :: zero = 0.0
+      CCTK_REAL,parameter :: one = 1.0
       
       call ApplySymmetry(cctkGH,"wavetoy::scalarevolve")
 
       if (CCTK_EQUALS(bound,"flat")) then
          call ApplyFlatBC(ierr,cctkGH,sw,"wavetoy::phi")
       else if (CCTK_EQUALS(bound,"radiation")) then
-         call ApplyRadiativeBC(ierr,cctkGH,zero,zero,sw,
+         call ApplyRadiativeBC(ierr,cctkGH,zero,one,sw,
      &        "wavetoy::phi","wavetoy::phi_old")
       end if
 
-- 
cgit v1.2.3