diff options
author | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-07-09 18:12:26 +0000 |
---|---|---|
committer | allen <allen@f80f6fb6-8356-4fd4-90bc-d84ad503c100> | 2000-07-09 18:12:26 +0000 |
commit | a488ace6d23904a8d502a2f53ddc4be56c641841 (patch) | |
tree | 50dcf693de0746d2325ca5016efd81b9080032dd | |
parent | 4cb184f456a344dee1376289175db6497b2f2b6d (diff) |
Updated boundary condition calls
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF90/trunk@49 f80f6fb6-8356-4fd4-90bc-d84ad503c100
-rw-r--r-- | src/WaveToy.F | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index f409e5c..bd434d8 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -19,8 +19,6 @@ @desc Evolution for the wave equation @enddesc - @calls CCTK_SyncGroup, wavetoy_boundaries - @calledby @history @endhistory @@ -96,8 +94,6 @@ @desc Boundary conditions for the wave equation @enddesc - @calls FlatBCVar,RadiativeBCVar - @calledby @history @endhistory @@ -112,22 +108,25 @@ DECLARE_CCTK_PARAMETERS DECLARE_CCTK_FUNCTIONS - integer :: ierr + integer i + integer :: ierr=-1 integer,dimension(3):: sw=1 - double precision,parameter :: zero = 0.0 - double precision,parameter :: one = 1.0 - + CCTK_REAL,parameter :: zero = 0.0 + CCTK_REAL,parameter :: one = 1.0 + 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,"zero")) then + call BndScalarVN(ierr,cctkGH,zero,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,"WaveToyF90_Boundaries: Error in boundary routines - giving up!") end if end subroutine WaveToyF90_Boundaries |