From 2fc7bbeb6faada5e42b78d458d78d5945147b527 Mon Sep 17 00:00:00 2001 From: allen Date: Sat, 23 Oct 1999 10:42:13 +0000 Subject: Commenting out Robin until routine converted to C git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllSOR/trunk@25 fa3da13c-9f13-4301-a575-cf5b8c5e1907 --- param.ccl | 2 +- src/sor_confmetric.F | 2 +- src/sor_flat.F | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/param.ccl b/param.ccl index df52af5..f2bb521 100644 --- a/param.ccl +++ b/param.ccl @@ -24,5 +24,5 @@ KEYWORD sor_bound "Boundary condition to apply in SOR loop" { "flat" :: "flat / copying boundary conditions" "constant" :: "constant boundary conditions" - "robin" :: "Robin type boundary conditions" +# "robin" :: "Robin type boundary conditions" } "flat" diff --git a/src/sor_confmetric.F b/src/sor_confmetric.F index 8d10c79..255f391 100644 --- a/src/sor_confmetric.F +++ b/src/sor_confmetric.F @@ -287,7 +287,7 @@ c write (*,*) "Robin" sw(1)=1 sw(2)=1 sw(2)=1 - call RobinBCVarI(ierr, cctkGH, 1.0, 1, sw, var_idx); +c call RobinBCVarI(ierr, cctkGH, 1.0, 1, sw, var_idx); if (ierr.ne.0) then call CCTK_WARN(1,"Could not Robin BC !") endif diff --git a/src/sor_flat.F b/src/sor_flat.F index 98781e1..889ae52 100644 --- a/src/sor_flat.F +++ b/src/sor_flat.F @@ -241,7 +241,7 @@ c Apply Robin boundary sw(1)=1 sw(2)=1 sw(2)=1 - call RobinBCVarI(ierr, cctkGH, 1.0, 1, sw, var_idx); +c call RobinBCVarI(ierr, cctkGH, 1.0, 1, sw, var_idx); if (ierr.ne.0) then call CCTK_WARN(1,"Could not apply Robin BC !") endif -- cgit v1.2.3