diff options
-rw-r--r-- | src/WaveToy.F90 | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index c4e1f87..780b944 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -7,13 +7,8 @@ @enddesc @@*/ -! Using Cactus infrastructure #include "cctk.h" - -! Using Cactus parameters #include "cctk_Parameters.h" - -! Using Cactus arguments lists #include "cctk_Arguments.h" @@ -125,14 +120,14 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) call CartSymGN(ierr,cctkGH,"wavetoy::scalarevolve") if (CCTK_EQUALS(bound,"flat")) then - call FlatBCVar(ierr,cctkGH,sw,"wavetoy::phi") + call BndFlatVN(ierr,cctkGH,sw,"wavetoy::phi") else if (CCTK_EQUALS(bound,"radiation")) then - call RadiativeBCVar(ierr,cctkGH,zero,one,sw, & + call BndRadiativeVN(ierr,cctkGH,sw,zero,one, & "wavetoy::phi","wavetoy::phi") end if if (ierr < 0) then - call CCTK_WARN(0,"Boundary conditions not applied - giving up!") + call CCTK_WARN(0,"WaveToyFreeF90_Boundaries: Boundary conditions not applied - giving up!") end if end subroutine WaveToyFreeF90_Boundaries |