diff options
Diffstat (limited to 'src/sor_confmetric.F')
| -rw-r--r-- | src/sor_confmetric.F | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/src/sor_confmetric.F b/src/sor_confmetric.F index 06dd9ba..cc408d2 100644 --- a/src/sor_confmetric.F +++ b/src/sor_confmetric.F @@ -139,17 +139,21 @@ c Set up shorthand for the grid spacings dy=cctk_delta_space(2) dz=cctk_delta_space(3) -c write(*,*)'supper: still need to do something with params' -c verb = contains("elliptic_verbose","yes").ne.0 + verb = CCTK_Equals(elliptic_verbose,"yes").eq.1 octant = CCTK_Equals(domain,"octant").eq.1 -c cheb = contains("sor_accel","cheb").ne.0 -c const = contains("sor_accel","const").ne.0 -c none = contains("sor_accel","none").ne.0 - verb = .true. - cheb = .false. none = .false. const = .false. + cheb = .false. + + if (CCTK_EQUALS(sor_accel,"const")) then + const = .true. + else if (CCTK_EQUALS(sor_accel,"cheb")) then + cheb = .true. + else + none = .true. + endif + if (verb .and. cheb) $ print *,"Chebyshev Acceleration with radius of 1" @@ -158,6 +162,7 @@ c none = contains("sor_accel","none").ne.0 if (verb .and. none) $ print *,"Un-accelearted relaxation (omega = 1)" + two = 2.0D0 four = 4.0D0 resnorm = 0.0d0 |