diff options
-rw-r--r-- | src/sor_flat.F | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/sor_flat.F b/src/sor_flat.F index 58f97e9..a3926b6 100644 --- a/src/sor_flat.F +++ b/src/sor_flat.F @@ -105,8 +105,8 @@ c Set boundary related variables sw(2)=1 sw(2)=1 - call Ell_GetRealKey(ierr, finf, "EllLinFlat::Bnd::Robin::V0") - call Ell_GetIntKey (ierr, npow, "EllLinFlat::Bnd::Robin::V1") + call Ell_GetRealKey(ierr, finf, "EllLinFlat::Bnd::Robin::inf") + call Ell_GetIntKey (ierr, npow, "EllLinFlat::Bnd::Robin::falloff") end if c We have no storage for M/N if they are of size one in each direction @@ -222,6 +222,7 @@ c Reduce the norm endif residual = resnorm residual = residual / (cctk_gsh(1)*cctk_gsh(2)*cctk_gsh(3)) +c write (*,*) "Iteration/Norm",sor_iteration,residual c Synchronize the variables call CCTK_SyncGroupWithVarI(cctkGH, var_idx) |