diff options
author | lanfer <lanfer@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-16 18:12:30 +0000 |
---|---|---|
committer | lanfer <lanfer@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-09-16 18:12:30 +0000 |
commit | 1fcfaa2d7cc9505e44518c08e325e02a8ca807c3 (patch) | |
tree | bc2936d7dd519fa8754456f8d110366f586e6090 | |
parent | 3c6be18956c69f06afcdfa39ed12ad5fe9d8550c (diff) |
added add. argument in RadBC
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@16 f80f6fb6-8356-4fd4-90bc-d84ad503c100
-rw-r--r-- | src/WaveToy.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index f1fc49a..3e113f0 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -125,7 +125,7 @@ c ---------------- 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,sw, + call ApplyRadiativeBC(ierr,cctkGH,zero,zero,sw, & "wavetoy::phi","wavetoy::phi_old") end if |