diff options
| -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 |