diff options
| -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 |