diff options
Diffstat (limited to 'src/WaveToy.F90')
-rw-r--r-- | src/WaveToy.F90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/WaveToy.F90 b/src/WaveToy.F90 index f6d16de..da4080a 100644 --- a/src/WaveToy.F90 +++ b/src/WaveToy.F90 @@ -125,22 +125,22 @@ subroutine WaveToyFreeF90_Boundaries(CCTK_ARGUMENTS) if (CCTK_EQUALS(bound,"flat")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, & - "wavetoy::phi", "Flat"); + "wavetoy::phi", "Flat") else if (CCTK_EQUALS(bound,"static")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, & - "wavetoy::phi", "Static"); + "wavetoy::phi", "Static") else if (CCTK_EQUALS(bound,"radiation")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, & - "wavetoy::phi", "Radiation"); + "wavetoy::phi", "Radiation") else if (CCTK_EQUALS(bound,"robin")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, & - "wavetoy::phi", "Robin"); + "wavetoy::phi", "Robin") else if (CCTK_EQUALS(bound,"zero")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, & - "wavetoy::phi", "Scalar"); + "wavetoy::phi", "Scalar") else if (CCTK_EQUALS(bound,"none")) then ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, & - "wavetoy::phi", "None"); + "wavetoy::phi", "None") end if if (ierr < 0) then |