Changeset 12677 for trunk/ippScripts/scripts/detrend_reject_exp.pl

Timestamp:

Mar 29, 2007, 11:10:42 AM (19 years ago)

Author:

Paul Price

Message:

More reporting.

File:

• trunk/ippScripts/scripts/detrend_reject_exp.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -169 +169 @@
         my $dMean = abs($means[$i] - $meanStats->mean()) ;
         if ($dMean > ($reject_mean * $meanStats->standard_deviation())) {
-            print $logFile "Rejecting $expTag based on ensemble mean value: " .
-                "$means[$i] --> $dMean vs " . $reject_mean * $meanStats->standard_deviation() . "\n";
+            print $logFile "Rejecting $expTag based on ensemble mean value: ";
             $reject = 1;
             #goto UPDATE;
-        }
+        } else {
+            print $logFile "Ensemble mean meets requirements: ";
+        }
+        print $logFile "$means[$i] --> $dMean vs " . $reject_mean * $meanStats->standard_deviation() . "\n";
     } else {
         print $logFile "No rejection for ensemble mean\n";
@@ -181 +183 @@
         my $dMean = abs($stdevs[$i] - $stdevStats->mean());
         if ($dMean > ($reject_stdev * $stdevStats->standard_deviation())) {
-            print $logFile "Rejecting $expTag based on ensemble stdev: " .
-                $stdevs[$i] . " --> $dMean sigma vs " . $reject_stdev . "\n";
+            print $logFile "Rejecting $expTag based on ensemble stdev: ";
             $reject = 1;
             #goto UPDATE;
-        }
+        } else {
+            print $logFile "Ensemble stdev meets requirements: ";
+        }
+        print $logFile "$stdevs[$i] --> $dMean sigma vs " . $reject_stdev . "\n";
     } else {
         print $logFile "No rejection for ensemble stdev\n";
@@ -193 +197 @@
         my $dMean = abs($meanStdevs[$i] - $meanStdevStats->mean());
         if ($dMean > ($reject_meanstdev * $meanStdevStats->standard_deviation())) {
-            print $logFile "Rejecting $expTag based on ensemble mean stdev: " .
-                $meanStdevs[$i] . " --> $dMean sigma vs " . $reject_meanstdev . "\n";
+            print $logFile "Rejecting $expTag based on ensemble mean stdev: ";
             $reject = 1;
             #goto UPDATE;
-        }
+        } else {
+            print $logFile "Ensemble mean stdev meets requirements: ";
+        }
+        print $logFile "$meanStdevs[$i] --> $dMean sigma vs " . $reject_meanstdev . "\n";
     } else {
         print $logFile "No rejection for ensemble mean stdev\n";