diff options
| author | allen <allen@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-07-09 18:10:26 +0000 |
|---|---|---|
| committer | allen <allen@daab82bb-f315-4ad1-b6d0-9353ff8b6e27> | 2000-07-09 18:10:26 +0000 |
| commit | faacdc57fc9a69097e5c040cc04a0688245c42a8 (patch) | |
| tree | bd9479b874b317bba809707337ed21ff60055574 | |
| parent | 582028ec9bb2a7d509f2a93fec560d4b918e5611 (diff) | |
Updated boundary routine names
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@21 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
| -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 |