diff options
Diffstat (limited to 'src/WaveToy.F')
| -rw-r--r-- | src/WaveToy.F | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/WaveToy.F b/src/WaveToy.F index a03de93..48189c7 100644 --- a/src/WaveToy.F +++ b/src/WaveToy.F @@ -11,6 +11,7 @@ #include "cctk_Parameters.h" #include "cctk_Arguments.h" +#define BOUNDARY_ERROR if (ierr < 0) call CCTK_WARN(0,"WaveToyF90_Boundaries: Error in boundary routines") /*@@ @routine WaveToyF90_Evolution @@ -140,11 +141,17 @@ call BndRobinVN(ierr,cctkGH, sw, finf, npow,"wavetoy::phi") else if (CCTK_EQUALS(bound,"zero")) then call BndScalarDirVN(ierr,cctkGH,swdir,mione ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,ione ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,mitwo ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,itwo ,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,mithree,sval,"wavetoy::phi") + BOUNDARY_ERROR call BndScalarDirVN(ierr,cctkGH,swdir,ithree ,sval,"wavetoy::phi") + BOUNDARY_ERROR else if (.NOT. CCTK_EQUALS(bound,"none")) then call CCTK_WARN(0,"Unrecognized boundary condition") end if |