diff options
author | lanfer <lanfer@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-10-19 12:23:34 +0000 |
---|---|---|
committer | lanfer <lanfer@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 1999-10-19 12:23:34 +0000 |
commit | 72465bbe469f29ab2f109853670d38c87d3a117d (patch) | |
tree | b8ed00a2e9922025b3f5cf08e2a910707de52bb7 | |
parent | f18ca6b9d89738650c6d53340044c6b44048df75 (diff) |
using the new boundary interface with Wavetoy
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@25 f80f6fb6-8356-4fd4-90bc-d84ad503c100
-rw-r--r-- | src/WaveToy.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index d493fe3..25f0c65 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -101,7 +101,7 @@ @desc Boundary conditions for the wave equation @enddesc - @calls FlatBC,RadiativeBC + @calls FlatBCVar,RadiativeBCVar @calledby @history @@ -125,9 +125,9 @@ call CartSymBCGroup(ierr,cctkGH,"wavetoyf90::temps") if (CCTK_EQUALS(bound,"flat")) then - call ApplyFlatBC(ierr,cctkGH,sw,"wavetoyf90::phi_tmp") + call FlatBCVar(ierr,cctkGH,sw,"wavetoyf90::phi_tmp") else if (CCTK_EQUALS(bound,"radiation")) then - call ApplyRadiativeBC(ierr,cctkGH,zero,one,sw, + call RadiativeBCVar(ierr,cctkGH,zero,one,sw, & "wavetoyf90::phi_tmp","wavetoy::phi") end if |