diff options
| author | lanfer <lanfer@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-11-10 08:36:30 +0000 |
|---|---|---|
| committer | lanfer <lanfer@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-11-10 08:36:30 +0000 |
| commit | 03b61e56dfa3f79ed44f71de2033188a1a733209 (patch) | |
| tree | 38b9f63b8a1454772e5e718f5d8487e62eae0f90 | |
| parent | 48c6f157804a671b418848bbae15b5da3fdc2839 (diff) | |
changes to the vaiables taken from the databse, SOR hangs within MPI, don't know why
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@38 fa3da13c-9f13-4301-a575-cf5b8c5e1907
| -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) |