default_paths.pl
changeset 47 2ccb81b7cea5
parent 45 6d49c7420a6c
--- a/default_paths.pl	Wed May 25 12:14:29 2016 -0400
+++ b/default_paths.pl	Fri Aug 05 11:02:51 2016 -0400
@@ -1,9 +1,9 @@
 #======================================================================
 #                    D E F A U L T _ P A T H S . P L 
 #                    doc: Tue Mar 29 07:09:52 2016
-#                    dlm: Wed May 18 20:23:32 2016
+#                    dlm: Wed Jun  1 19:20:45 2016
 #                    (c) 2016 A.M. Thurnherr
-#                    uE-Info: 13 44 NIL 0 0 72 0 2 4 NIL ofnI
+#                    uE-Info: 16 57 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # HISTORY:
@@ -11,6 +11,9 @@
 #	May 18, 2016: - added new attitude and acceleration residuals plots
 #				  - renamed mean_residual to bin_residuals plots
 #				  - added new residual_profs plot
+#	Jun  1, 2016: - added residuals12 plots
+#				  - added support for $plotting_level
+#				  - exported stuff to [default_output.pl]
 
 #======================================================================
 # ProcessingParams file selection
@@ -46,13 +49,6 @@
 	}
 	error("$data_dir: no such directory\n") unless (-d $data_dir);
 }
-unless (-d $plot_dir) { 										    
-	unless ($plot_dir =~ m{/}) {
-		warning(0,"Creating plot sub-directory ./$plot_dir\n");
-		mkdir($plot_dir);
-	}
-	error("$plot_dir: no such directory\n") unless (-d $plot_dir);
-}
 unless (-d $log_dir) {
 	unless ($log_dir =~ m{/}) {
 		warning(0,"Creating log-file sub-directory ./$log_dir\n");
@@ -60,78 +56,17 @@
 	}
 	error("$log_dir: no such directory\n") unless (-d $log_dir);
 }
-           
-
-#----------------------------------------------------------------------
-# Processing log (diagnostic messages) output
-#----------------------------------------------------------------------
-
-$out_log = "$log_dir/$out_basename.log";
-
+if ($plotting_level > 0) {
+	unless (-d $plot_dir) { 										    
+		unless ($plot_dir =~ m{/}) {
+			warning(0,"Creating plot sub-directory ./$plot_dir\n");
+			mkdir($plot_dir);
+		}
+		error("$plot_dir: no such directory\n") unless (-d $plot_dir);
+	}
+}
 
 #----------------------------------------------------------------------
-# Vertical-velocity profile output and plots:
-#
-# Data:
-#	*.wprof				vertical velocity profiles
-#
-# Plots:
-# 	*_wprof.ps			vertical velocity profiles (main output plot)
-#----------------------------------------------------------------------
-
-@out_profile = ("plot_wprof($plot_dir/${out_basename}_wprof.ps)",
-			    "$data_dir/$out_basename.wprof");
-
-
-#--------------------------------------------------------------------------------------------------
-# Vertical-velocity sample data output and plots:
-#
-# Data (in $data_dir):
-#	*.wsamp							w sample data
-#	residuals/<prof>/<ens>.rprof	OPTIONAL: per-ensemble residuals
-#						
-# Plots (in $plot_dir):
-#	*_wsamp.ps						vertical velocity time-depth plot
-#	*_residuals.ps					residual vertical velocity time-depth plot
-#	*_backscatter.ps				volume scattering coefficient time-depth plot
-#	*_attitude_res.ps				residuals binned wrt. pitch/roll
-#	*_res_profs.ps					residuals binned in depth
-#	*_acceleration_res.ps			OPTIONAL: residuals binned wrt. package acceleration derivative
-#	*_correlation.ps				OPTIONAL: correlation time-depth plot
-#--------------------------------------------------------------------------------------------------
-
-push(@out_wsamp,"$data_dir/$out_basename.wsamp");
-#push(@out_wsamp,sprintf('dump_residual_profiles(%s/residuals/%03d)',$data_dir,$PROF));
-
-push(@out_wsamp,"plot_residuals($plot_dir/${out_basename}_residuals.ps)");
-push(@out_wsamp,"plot_backscatter($plot_dir/${out_basename}_backscatter.ps)");
-push(@out_wsamp,"plot_wsamp($plot_dir/${out_basename}_wsamp.ps)");
-push(@out_wsamp,"plot_attitude_residuals($plot_dir/${out_basename}_attitude_res.ps)");
-push(@out_wsamp,"plot_residual_profs($plot_dir/${out_basename}_residual_profs.ps)");
-#push(@out_wsamp,"plot_acceleration_residuals($plot_dir/${out_basename}_acceleration_res.ps)");
-#push(@out_wsamp,"plot_correlation($plot_dir/${out_basename}_correlation.ps)");
-
-#----------------------------------------------------------------------
-# Time-series output
-#
-#	*.tis			combined CTD/LADCP time-series data, including 
-#					package- and LADCP reference layer w
-#----------------------------------------------------------------------
-
-@out_timeseries = ("$data_dir/$out_basename.tis");
-
-#----------------------------------------------------------------------
-# Per-bin vertical-velocity residuals (plot only)
-#----------------------------------------------------------------------
-
-@out_BR	= ("plot_mean_residuals($plot_dir/${out_basename}_bin_residuals.ps)");
-
-
-#----------------------------------------------------------------------
-# Time-lagging correlation statistics (plot only)
-#----------------------------------------------------------------------
-
-@out_TL = ("plot_time_lags($plot_dir/${out_basename}_time_lags.ps)");
 
 1;	# return true