diff options
-rw-r--r-- | src/SourceData.F77 | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 14bcc70..bbd786c 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -67,17 +67,20 @@ c where Q is the total charge and R is the sphere radius c Call elliptic solver to fill out phi -c call Ell_SetStringKey(ierr, "yes", "EllLinFlat::Bbd::Robin") +c call Ell_SetStringKey(ierr, "yes", "EllLinFlat::Bnd::Robin") c write (*,*) "SourceData: SetString ",ierr - call Ell_SetRealKey(ierr, 1.0d0, "EllLinFlat::Bnd::Robin::V0") - call Ell_SetIntKey (ierr, 1, "EllLinFlat::Bnd::Robin::V1") + call Ell_SetRealKey(ierr, 1.0d0, "EllLinFlat::Bnd::Robin::inf") + call Ell_SetIntKey (ierr, 1, "EllLinFlat::Bnd::Robin::falloff") + + write (*,*) "charge: Going into elliptic solver" call Ell_LinFlatSolver(ierr,cctkGH, & iphi, & iMcoeff, iNcoeff, & AbsTol, RelTol, & "sor") + write (*,*) "charge: Exit elliptic solver" c Set up last timestep ... assume time symmetry |