diff options
Diffstat (limited to 'src/WaveToy.F')
-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 |