1 files changed, 18 insertions, 20 deletions

diff --git a/src/Setup_Vars.c b/src/Setup_Vars.c
index 8f14a88..056c72a 100644
--- a/src/Setup_Vars.c
+++ b/src/Setup_Vars.c
@@ -19,7 +19,7 @@ CCTK_FILEVERSION(Norms_Setup_Vars_c);
 struct norms_opts {
   int active;
   int vi; /* variable index */
-  int norm_type;
+  CCTK_REAL bg; /* background value which gets subtracted */
 };
 
 
@@ -31,7 +31,7 @@ static void getopt (int const idx,
   int table;
   int cnt;
   int ierr;
-  int norm_type;
+  CCTK_REAL bg;
 
 
   assert (idx >= 0 && idx < CCTK_NumVars());
@@ -59,26 +59,18 @@ static void getopt (int const idx,
   norms_opts->vi = idx;
 
   if (optstring) {
-    /* XXX norm_type is not used currently !*/
-    cnt = Util_TableGetInt (table, &norm_type , "norm_type");
+    cnt = Util_TableGetReal (table, &bg , "bg");
 
     if (cnt < 0) {
-      norms_opts->norm_type = -100; /* XXX magic value */
+      norms_opts->bg = 0.; /* don't subtract any background */
     } else {
-      norms_opts->norm_type = norm_type;
+      norms_opts->bg = bg;
     }
 
     ierr = Util_TableDestroy (table);
     assert (!ierr);
   }
 
-  /* Don't compute norms if not output was requested */
-  if (norms_opts->active) {
-    if (norms_opts->norm_type==-100) {
-      norms_opts->active = 0;
-    }
-  }
-
 }
 
 
@@ -119,6 +111,8 @@ void Norms_Setup_Vars (CCTK_ARGUMENTS)
   for(i=0;i<max_nr_vars;i++) {
     varindices_1st[i]=-1;
     varindices_2nd[i]=-1;
+    bgvals_1st[i]=0.;
+    bgvals_2nd[i]=0.;
   }
 
   nvars = CCTK_NumVars();
@@ -143,17 +137,21 @@ void Norms_Setup_Vars (CCTK_ARGUMENTS)
   for (n=0; n<nvars; ++n) {
     if (norms_opts_1st[n].active) {
       varindices_1st[*nr1stvars]=norms_opts_1st[n].vi;
+      bgvals_1st[*nr1stvars]=norms_opts_1st[n].bg;
       if (verbose>0) {
-          CCTK_VInfo(CCTK_THORNSTRING,"    %s (1st order var)",
-                        CCTK_FullName(varindices_1st[i]));
+          CCTK_VInfo(CCTK_THORNSTRING,"    %s (1st order var) - %f",
+                        CCTK_FullName(varindices_1st[*nr1stvars]),
+                        bgvals_1st[*nr1stvars]);
       }
       *nr1stvars=*nr1stvars+1;
     }
     if (norms_opts_2nd[n].active) {
       varindices_2nd[*nr2ndvars]=norms_opts_2nd[n].vi;
+      bgvals_2nd[*nr2ndvars]=norms_opts_2nd[n].bg;
       if (verbose>0) {
-          CCTK_VInfo(CCTK_THORNSTRING,"    %s (2nd order var)",
-                        CCTK_FullName(varindices_2nd[i]));
+          CCTK_VInfo(CCTK_THORNSTRING,"    %s (2nd order var) - %f",
+                        CCTK_FullName(varindices_2nd[*nr2ndvars]),
+                        bgvals_2nd[*nr2ndvars]);
       }
       *nr2ndvars=*nr2ndvars+1;
     }
@@ -166,9 +164,9 @@ void Norms_Setup_Vars (CCTK_ARGUMENTS)
   if (verbose>4) {
     fprintf(stderr,"   The actual variable arrays look like\n");
     for (n=0;n<max_nr_vars;n++) {
-      fprintf(stderr,"      i:%d 1st (vi:%d vn:%s) 2nd (vi:%d vn:%s)\n",
-          n,varindices_1st[n],CCTK_VarName(varindices_1st[n]),
-          varindices_2nd[n],CCTK_VarName(varindices_2nd[n]));
+      fprintf(stderr,"      i:%d (vi:%d vn:%s bg:%f) (vi:%d vn:%s bg:%f)\n",
+          n,varindices_1st[n],CCTK_VarName(varindices_1st[n]),bgvals_1st[n],
+          varindices_2nd[n],CCTK_VarName(varindices_2nd[n]),bgvals_2nd[n]);
     }
   }