default_output.pl
author A.M. Thurnherr <athurnherr@yahoo.com>
Mon, 08 Mar 2021 12:07:26 -0500
changeset 54 828e5466391b
parent 47 2ccb81b7cea5
child 56 8f120b9f795a
permissions -rw-r--r--
before A20
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     1
#======================================================================
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     2
#                    D E F A U L T _ O U T P U T . P L 
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     3
#                    doc: Wed Jun  1 19:21:19 2016
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
     4
#                    dlm: Sat May 16 12:19:26 2020
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     5
#                    (c) 2016 A.M. Thurnherr
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
     6
#                    uE-Info: 71 0 NIL 0 0 72 0 2 4 NIL ofnI
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     7
#======================================================================
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     8
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     9
# NOTES:
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    10
#  - as this file is executed after ProcessingParams, only undefined
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    11
#	 variables are set
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    12
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    13
# HISTORY:
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    14
#	Jun  1, 2016: - created from [default_paths.pl]
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    15
#	May 15, 2020: - removed a couple of time-depth plots from level 1
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    16
#				  - changed semmantics so that pushing to plot adds,
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    17
#				    instead of overwwriting
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    18
#				  - BUG: one of the plots did not repect plotting level
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    19
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    20
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    21
# Processing log (diagnostic messages) output
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    22
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    23
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    24
$out_log = "$log_dir/$out_basename.log"
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    25
	unless defined($out_log);
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    26
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    27
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    28
# Vertical-velocity profile output and plots:
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    29
#
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    30
# Data:
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    31
#	*.wprof				vertical velocity profiles
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    32
#
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    33
# Plots:
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    34
# 	*_wprof.ps			vertical velocity profiles (main output plot)
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    35
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    36
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    37
push(@out_profile,"$data_dir/$out_basename.wprof");
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    38
push(@out_profile,"plot_wprof($plot_dir/${out_basename}_wprof.ps)")
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    39
	if ($plotting_level > 0);
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    40
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    41
#--------------------------------------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    42
# Vertical-velocity sample data output and plots:
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    43
#
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    44
# Data (in $data_dir):
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    45
#	*.wsamp							w sample data
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    46
#	residuals/<prof>/<ens>.rprof	OPTIONAL: per-ensemble residuals
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    47
#						
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    48
# Plots (in $plot_dir):				plotting level: contents
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    49
#	*_wprof.ps						1: summary plot
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    50
#	*_bin_residuals.ps				1: residuals binned wrt bin number
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    51
#	*_residual_profs.ps				1: residuals binned in depth
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    52
#	*_wsamp.ps						2: vertical velocity time-depth plot
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    53
#	*_residuals.ps					2: residual vertical velocity time-depth plot
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    54
#	*_backscatter.ps				2: volume scattering coefficient time-depth plot
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    55
#	*_attitude_res.ps				3: residuals binned wrt. pitch/roll
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    56
#	*_residuals12.ps				3: beampair <1,2> residual vertical velocity time-depth plot
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    57
#	*_residuals34.ps				3: beampair <3,4> residual vertical velocity time-depth plot
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    58
#	*_attitude_res.ps				3: residuals binned wrt. package attitude
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    59
#	*_acceleration_res.ps			3: residuals binned wrt. package acceleration derivative
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    60
#	*_correlation.ps				4: correlation time-depth plot
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    61
#--------------------------------------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    62
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    63
push(@out_wsamp,"$data_dir/$out_basename.wsamp");
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    64
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    65
#push(@out_wsamp,sprintf('dump_residual_profiles(%s/residuals/%03d)',$data_dir,$PROF));
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    66
#push(@out_wsamp,"write_residual_profs('$data_dir/$out_basename.resprof')");
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    67
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    68
if ($plotting_level > 0) {
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    69
	push(@out_wsamp,"plot_residual_profs($plot_dir/${out_basename}_residual_profs.ps)");
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    70
	if ($plotting_level > 1) {
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    71
		push(@out_wsamp,"plot_wsamp($plot_dir/${out_basename}_wsamp.ps)");
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    72
		push(@out_wsamp,"plot_residuals($plot_dir/${out_basename}_residuals.ps)");
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    73
		push(@out_wsamp,"plot_backscatter($plot_dir/${out_basename}_backscatter.ps)");
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    74
		if ($plotting_level > 2) {
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    75
			push(@out_wsamp,"plot_residuals12($plot_dir/${out_basename}_residuals12.ps)");
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    76
			push(@out_wsamp,"plot_residuals34($plot_dir/${out_basename}_residuals34.ps)");
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    77
			push(@out_wsamp,"plot_attitude_residuals($plot_dir/${out_basename}_attitude_res.ps)");
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    78
			push(@out_wsamp,"plot_acceleration_residuals($plot_dir/${out_basename}_acceleration_res.ps)");
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    79
			if ($plotting_level > 3) {
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    80
				push(@out_wsamp,"plot_correlation($plot_dir/${out_basename}_correlation.ps)");
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    81
			}
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    82
		}
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    83
	}
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    84
}
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    85
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    86
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    87
# Time-series output
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    88
#
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    89
#	*.tis			combined CTD/LADCP time-series data, including 
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    90
#					package- and LADCP reference layer w
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    91
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    92
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
    93
push(@out_timeseries,"$data_dir/$out_basename.tis");
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    94
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    95
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    96
# Per-bin vertical-velocity residuals (plot only)
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    97
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    98
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    99
push(@out_BR,"plot_mean_residuals($plot_dir/${out_basename}_bin_residuals.ps)")
54
828e5466391b before A20
A.M. Thurnherr <athurnherr@yahoo.com>
parents: 47
diff changeset
   100
	if ($plotting_level > 0);
47
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   101
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   102
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   103
# Time-lagging correlation statistics (plot only)
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   104
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   105
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   106
unless (@out_TL) {
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   107
	push(@out_TL,"plot_time_lags($plot_dir/${out_basename}_time_lags.ps)")
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   108
		if ($plotting_level > 0);
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   109
}
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   110
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   111
#----------------------------------------------------------------------
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   112
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   113
1;	# return true
2ccb81b7cea5 version found on whoosher after repair
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   114