diff options
-rw-r--r-- | param.ccl | 1 | ||||
-rw-r--r-- | src/WaveToy.F77 | 3 |
2 files changed, 4 insertions, 0 deletions
@@ -8,6 +8,7 @@ KEYWORD bound "Type of boundary condition to use" "none" :: "No boundary condition" "flat" :: "Flat boundary condition" "radiation" :: "Radiation boundary condition" + "robin" :: "Robin boundary condition" "zero" :: "Zero boundary condition" } "none" diff --git a/src/WaveToy.F77 b/src/WaveToy.F77 index 836f2d5..9658beb 100644 --- a/src/WaveToy.F77 +++ b/src/WaveToy.F77 @@ -137,6 +137,9 @@ c ----------------------------------- else if (CCTK_Equals(bound,"radiation").eq.1) then call BndRadiativeVN(ierr,cctkGH,sw,zero,one,"wavetoy::phi", & "wavetoy::phi") + else if (CCTK_Equals(bound,"robin").eq.1) then + call RobinBCVar(ierr,cctkGH,1.0,1,sw, + & "wavetoy::phi") end if if (ierr < 0) then |