diff options
| author | lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-18 14:15:01 +0000 |
|---|---|---|
| committer | lanfer <lanfer@4451c3c6-1034-4891-99ea-21147727ccdf> | 2000-07-18 14:15:01 +0000 |
| commit | 6259b5b14780a2f00f1893712e12a40f1c1287ac (patch) | |
| tree | 0ab91a496f1ae650b8062fad4259a9f823da2ca2 /src | |
| parent | 5009fdaf68af56e6241b08ca7e9da53bd2bd6172 (diff) | |
support for Robin boundary conditions in Wavetoy - for testing of Robin only
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@56 4451c3c6-1034-4891-99ea-21147727ccdf
Diffstat (limited to 'src')
| -rw-r--r-- | src/WaveToy.F77 | 3 |
1 files changed, 3 insertions, 0 deletions
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 |