diff options
| -rw-r--r-- | src/reduce.F90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/reduce.F90 b/src/reduce.F90 index ab7b70e..3084d86 100644 --- a/src/reduce.F90 +++ b/src/reduce.F90 @@ -52,7 +52,8 @@ subroutine NoExcision_Reduce (cctk_iteration, cctk_lsh, rhs, x, y, z) dist2 = (x - cx)**2 + (y - cy)**2 + (z - cz)**2 -#warning "TODO: reduce not only the RHS, but also drive the variables towards Minkowski" + ! TODO: reduce not only the RHS, but also drive the variables + ! towards Minkowski where (dist2 <= 1) rhs = smooth (rhs, rhs * reduction_factor(n), dist2) end where |