From a165a43d746a10a45d4e6d363060e0e75367b975 Mon Sep 17 00:00:00 2001
From: Erik Schnetter <schnetter@cct.lsu.edu>
Date: Tue, 21 Aug 2007 19:09:00 +0000
Subject: CarpetMask: Correct math errors in coordinate calculations

Add "verbose" parameter.

Use SphericalSurface::sf_active instead of SphericalSurface::sf_valid.

Use correct ranges for acos and atan2.

darcs-hash:20070821190909-dae7b-6c762329b87641c6b0f4650993b33fa9e0f4b12d.gz
---
 Carpet/CarpetMask/param.ccl           |  8 +++++
 Carpet/CarpetMask/src/mask_surface.cc | 64 ++++++++++++++++++++++++++++++-----
 2 files changed, 63 insertions(+), 9 deletions(-)

(limited to 'Carpet/CarpetMask')

diff --git a/Carpet/CarpetMask/param.ccl b/Carpet/CarpetMask/param.ccl
index bc8fe1979..f555398c3 100644
--- a/Carpet/CarpetMask/param.ccl
+++ b/Carpet/CarpetMask/param.ccl
@@ -2,6 +2,12 @@
 
 
 
+BOOLEAN verbose "Produce screen output" STEERABLE=always
+{
+} "no"
+
+
+
 # The exclusion parameters are re-interpreted after each regridding,
 # and are therefore marked as "always steerable".
 
@@ -45,6 +51,8 @@ CCTK_REAL excluded_surface_factor[10] "shrink factor of excluded surface" STEERA
   0:* :: ""
 } 1.0
 
+
+
 SHARES: SphericalSurface
 
 USES CCTK_INT nsurfaces
diff --git a/Carpet/CarpetMask/src/mask_surface.cc b/Carpet/CarpetMask/src/mask_surface.cc
index 667a38643..990189a9f 100644
--- a/Carpet/CarpetMask/src/mask_surface.cc
+++ b/Carpet/CarpetMask/src/mask_surface.cc
@@ -1,5 +1,7 @@
+#include <algorithm>
 #include <cassert>
 #include <cmath>
+#include <vector>
 
 #include <cctk.h>
 #include <cctk_Arguments.h>
@@ -15,6 +17,11 @@ namespace CarpetMask {
   
   
   
+  // Number of excluded regions which are defined in param.ccl
+  int const num_excluded = 10;
+  
+  
+  
   /**
    * Set the weight in the excluded regions to zero.
    */
@@ -25,6 +32,12 @@ namespace CarpetMask {
     DECLARE_CCTK_ARGUMENTS;
     DECLARE_CCTK_PARAMETERS;
     
+    // Some state verbose output
+    static vector <int> last_output;
+    if (last_output.empty()) {
+      last_output.resize (num_excluded, -1);
+    }
+    
     CCTK_REAL * const weight =
       static_cast <CCTK_REAL *>
       (CCTK_VarDataPtr (cctkGH, 0, "CarpetReduce::weight"));
@@ -34,16 +47,16 @@ namespace CarpetMask {
                  "CarpetReduce is not active, or CarpetReduce::mask does not have storage");
     }
     
-    for (int n = 0; n < 10; ++ n) {
+    for (int n = 0; n < num_excluded; ++ n) {
       
       int const sn = excluded_surface[n];
       if (sn >= 0) {
         
         assert (sn < nsurfaces);
         
-        CCTK_REAL const shrink_factor = excluded_surface_factor[n];
-        
-        if (sf_valid[sn] > 0) {
+        if (sf_active[sn]) {
+          
+          CCTK_REAL const shrink_factor = excluded_surface_factor[n];
           
           CCTK_REAL const x0 = sf_origin_x[sn];
           CCTK_REAL const y0 = sf_origin_y[sn];
@@ -57,6 +70,17 @@ namespace CarpetMask {
           int const ntheta = sf_ntheta[sn];
           int const nphi   = sf_nphi  [sn];
           
+          if (verbose) {
+            if (cctk_iteration > last_output.at(n)) {
+              last_output.at(n) = cctk_iteration;
+              CCTK_VInfo (CCTK_THORNSTRING,
+                          "Setting mask from surface %d at [%g,%g,%g], average radius %g",
+                          sn,
+                          double(x0), double(y0), double(z0),
+                          double(sf_mean_radius[sn]));
+            }
+          }
+          
           for (int k = 0; k < cctk_lsh[2]; ++ k) {
             for (int j = 0; j < cctk_lsh[1]; ++ j) {
               for (int i = 0; i < cctk_lsh[0]; ++ i) {
@@ -72,15 +96,28 @@ namespace CarpetMask {
                   // Always excise the surface origin
                   weight[ind] = 0.0;
                 } else {
-                  CCTK_REAL const theta = acos (dz / rho);
-                  CCTK_REAL const phi   = atan2 (dy, dx);
+                  CCTK_REAL const theta =
+                    acos (min (+1.0, max (-1.0, dz / rho)));
+                  assert (not isnan (theta));
+                  assert (theta >= 0);
+                  assert (theta <= M_PI);
+                  CCTK_REAL const phi =
+                    fmod (atan2 (dy, dx) + 2 * M_PI, 2 * M_PI);
+                  assert (not isnan (phi));
+                  assert (phi >= 0);
+                  assert (phi < 2 * M_PI);
                   int const a = floor ((theta - theta0) / dtheta + 0.5);
+                  assert (a >= 0);
+                  assert (a < ntheta);
                   int const b = floor ((phi   - phi0  ) / dphi   + 0.5);
+                  assert (b >= 0);
+                  assert (b < nphi);
                   
                   assert (a >= 0 and a < ntheta);
                   assert (b >= 0 and b < nphi  );
                   
-                  CCTK_REAL const dr = sf_radius[a + maxntheta * b];
+                  CCTK_REAL const dr =
+                    sf_radius[a + maxntheta * (b + maxnphi * sn)];
                   if (rho <= dr * shrink_factor) {
                     weight[ind] = 0.0;
                   }
@@ -90,9 +127,18 @@ namespace CarpetMask {
             }
           }
           
-        } // if surface is valid
+        } else {
+          
+          if (verbose) {
+            if (cctk_iteration > last_output.at(n)) {
+              last_output.at(n) = cctk_iteration;
+              CCTK_VInfo (CCTK_THORNSTRING, "Surface %d is not active", sn);
+            }
+          }
+          
+        } // if surface is not active
         
-      } // if r>=0
+      } // if sn >= 0
     }   // for n
     
   }
-- 
cgit v1.2.3