diff options
author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-18 17:50:47 +0000 |
---|---|---|
committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-18 17:50:47 +0000 |
commit | 22495226c82a63a15394df5b62b24243ad4770c4 (patch) | |
tree | 213d2f7037903295d544f6f91b28325324d705ed | |
parent | 1fcfaa2d7cc9505e44518c08e325e02a8ca807c3 (diff) |
Fixing radiation boundary conditions
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@17 f80f6fb6-8356-4fd4-90bc-d84ad503c100
-rw-r--r-- | src/WaveToy.F | 3 |
1 files changed, 2 insertions, 1 deletions
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 |