diff options
author | allen <allen@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-10-23 10:42:13 +0000 |
---|---|---|
committer | allen <allen@fa3da13c-9f13-4301-a575-cf5b8c5e1907> | 1999-10-23 10:42:13 +0000 |
commit | 2fc7bbeb6faada5e42b78d458d78d5945147b527 (patch) | |
tree | a888c2d0fe955bd5d5550791fe3a0c223aeec665 | |
parent | 60024475b858dcd0e448e20b99c07d938d6e28cf (diff) |
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
-rw-r--r-- | param.ccl | 2 | ||||
-rw-r--r-- | src/sor_confmetric.F | 2 | ||||
-rw-r--r-- | src/sor_flat.F | 2 |
3 files changed, 3 insertions, 3 deletions
@@ -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 |