Changeset 18502

Timestamp:

Jul 13, 2008, 3:36:28 PM (18 years ago)

Author:

eugene

Message:

using redirect for output to logfile

File:

• branches/eam_branch_20080706/ippScripts/scripts/detrend_reject_exp.pl (modified) (8 diffs)

branches/eam_branch_20080706/ippScripts/scripts/detrend_reject_exp.pl

@@ -153 +153 @@
 # neb:///*/gpc1/20080130 (volume not specified)
 
-my $logFile;
 unless ($no_op) {
-    $logFile = $ipprc->file_create_append( $logName );
-    print $logFile "Ensemble mean $ensMeanMean +/- $ensMeanStdev\n";
-    print $logFile "Ensemble stdev $ensStdevMean +/- $ensStdevStdev\n";
-    print $logFile "Ensemble mean rms (over imfiles) $ensMeanStdevMean +/- $ensMeanStdevStdev\n\n";
+    print "Ensemble mean $ensMeanMean +/- $ensMeanStdev\n";
+    print "Ensemble stdev $ensStdevMean +/- $ensStdevStdev\n";
+    print "Ensemble mean rms (over imfiles) $ensMeanStdevMean +/- $ensMeanStdevStdev\n\n";
 }
 
@@ -189 +187 @@
         # Rejected this at an earlier stage
         unless ($no_op) {
-            print $logFile "Rejecting $expID based on earlier determination.\n";
+            print "Rejecting $expID based on earlier determination.\n";
         }
         $reject = 1;
@@ -208 +206 @@
         my $delta = abs($mean - $ensMeanMean);
         if ($delta > ($reject_mean * $ensMeanStdev)) {
-            print $logFile "Rejecting $expID based on ensemble mean value: ";
+            print "Rejecting $expID based on ensemble mean value: ";
             $reject = 1;
             #goto UPDATE;
         } else {
-            print $logFile "$expID OK against ensemble mean: ";
-        }
-        print $logFile "$mean --> $delta vs " . $reject_mean * $ensMeanStdev . "\n";
+            print "$expID OK against ensemble mean: ";
+        }
+        print "$mean --> $delta vs " . $reject_mean * $ensMeanStdev . "\n";
     } else {
-        print $logFile "No rejection of $expID for ensemble mean\n";
+        print "No rejection of $expID for ensemble mean\n";
     }
 
@@ -222 +220 @@
         my $delta = abs($stdev - $ensStdevMean);
         if ($delta > ($reject_stdev * $ensStdevStdev)) {
-            print $logFile "Rejecting $expID based on ensemble stdev: ";
+            print "Rejecting $expID based on ensemble stdev: ";
             $reject = 1;
             #goto UPDATE;
         } else {
-            print $logFile "$expID OK against ensemble stdev: ";
-        }
-        print $logFile "$stdev --> $delta sigma vs " . $reject_stdev * $ensStdevStdev . "\n";
+            print "$expID OK against ensemble stdev: ";
+        }
+        print "$stdev --> $delta sigma vs " . $reject_stdev * $ensStdevStdev . "\n";
     } else {
-        print $logFile "No rejection of $expID for ensemble stdev\n";
+        print "No rejection of $expID for ensemble stdev\n";
     }
 
@@ -236 +234 @@
         my $delta = abs($meanStdev - $ensMeanStdevMean);
         if ($delta > ($reject_meanstdev * $ensMeanStdevStdev)) {
-            print $logFile "Rejecting $expID based on ensemble mean stdev: ";
+            print "Rejecting $expID based on ensemble mean stdev: ";
             $reject = 1;
             #goto UPDATE;
         } else {
-            print $logFile "$expID OK against ensemble mean stdev: ";
-        }
-        print $logFile "$meanStdev --> $delta sigma vs " . $reject_meanstdev * $ensMeanStdevStdev. "\n";
+            print "$expID OK against ensemble mean stdev: ";
+        }
+        print "$meanStdev --> $delta sigma vs " . $reject_meanstdev * $ensMeanStdevStdev. "\n";
     } else {
-        print $logFile "No rejection of $expID for ensemble mean stdev\n";
+        print "No rejection of $expID for ensemble mean stdev\n";
     }
 
@@ -256 +254 @@
     if ((not $include and not $reject) or ($include and $reject)) {
         unless ($no_op) {
-            print $logFile "Status of $expID has changed.\n";
+            print "Status of $expID has changed.\n";
         }
         $numChanges++;
@@ -289 +287 @@
 
 unless ($no_op) {
-    print $logFile "Master: $master\n";
-    print $logFile "Stop: $stop\n";
-    close $logFile;
+    print "Master: $master\n";
+    print "Stop: $stop\n";
 }
 
@@ -305 +302 @@
     exit($PS_EXIT_PROG_ERROR);
 }
-
-# Allow iteration to be turned off
-my $allow_iter = metadataLookupBool($ipprc->{rejection}, "ITERATION"); # Allow iteration?
-my $force_master = metadataLookupBool($ipprc->{rejection}, "MASTER"); # Force the stack to be accepted
-$stop = 1 unless $allow_iter;
-$master = 1 if $force_master;
 
 ## add the summary statistics, and request a new iteration if needed