diff options
| -rw-r--r-- | src/WaveToy.F77 | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 40636bb..830db0c 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -34,9 +34,13 @@ DECLARE_CCTK_FARGUMENTS DECLARE_CCTK_PARAMETERS + CCTK_REAL zero + integer ierr integer sw(3) integer CCTK_Equals + zero = 0.0 + c Set the stencil width sw(1)=1 sw(2)=1 @@ -45,9 +49,13 @@ c Set the stencil width call ApplySymmetry(cctkGH,"wavetoy::scalarevolve") if (CCTK_EQUALS(bound,"flat")) then - call ApplyFlatBC(cctkGH,sw,"wavetoy::phi") + call ApplyFlatBC(ierr,cctkGH,sw,"wavetoy::phi") else if (CCTK_Equals(bound,"radiation").eq.1) then - call ApplyRadiativeBC(cctkGH,1.0,sw,"wavetoy::phi","wavetoy::phi_old") + call ApplyRadiativeBC(ierr,cctkGH,zero,sw,"wavetoy::phi","wavetoy::phi_old") + end if + + if (ierr < 0) then + call CCTK_WARN(0,"Boundary conditions not applied - giving up!"); end if return |