diff options
| author | lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-16 18:09:57 +0000 |
|---|---|---|
| committer | lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf> | 1999-09-16 18:09:57 +0000 |
| commit | 327bd7574b3b1eb30b9ae90e620c43a91a4c2506 (patch) | |
| tree | 3e2bb3ed0b9166f47acf049571cbc89b51aa6075 | |
| parent | 2034d2746037f5a926c9f3d0da89b5d9e7ab5756 (diff) | |
adding additional argument for Rad.BC call
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@24 4451c3c6-1034-4891-99ea-21147727ccdf
| -rw-r--r-- | src/WaveToy.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index fdf5dcb..c6036a0 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -152,7 +152,7 @@ c ----------------------------------- else if (CCTK_EQUALS(bound,"zero")) then call ApplyConstantBC(ierr,cctkGH,zero,sw,"wavetoyf77::phi_next") else if (CCTK_Equals(bound,"radiation").eq.1) then - call ApplyRadiativeBC(ierr,cctkGH,zero,sw,"wavetoyf77::phi_next", + call ApplyRadiativeBC(ierr,cctkGH,zero,zero,sw,"wavetoyf77::phi_next", & "wavetoy::phi") end if |