--- a/plot_residuals34.pl Sat Apr 10 06:00:45 2021 -0400
+++ b/plot_residuals34.pl Sat Jul 24 10:35:41 2021 -0400
@@ -1,14 +1,15 @@
#======================================================================
# P L O T _ R E S I D U A L S 3 4 . P L
# doc: Wed Jun 1 19:05:22 2016
-# dlm: Tue Oct 29 13:15:21 2019
+# dlm: Thu Jul 1 13:29:22 2021
# (c) 2016 A.M. Thurnherr
-# uE-Info: 84 68 NIL 0 0 72 0 2 4 NIL ofnI
+# uE-Info: 12 47 NIL 0 0 72 0 2 4 NIL ofnI
#======================================================================
# HISTORY:
# Jun 1, 2016: - created from [plot_residuals.pl]
# Oct 29, 2019: - updated psscale -B to gmt5 syntax
+# Jul 1, 2021: - adapted to more std %PARAMs
require "$ANTS/libGMT.pl";
@@ -16,18 +17,18 @@
{
my($pfn) = @_;
- return unless ($P{max_depth});
+ return unless ($P{'depth.max'});
- my($xmin) = $P{min_ens}-0.5;
- my($xmax) = $P{max_ens}+0.5;
- my($ymin) = round(antsParam('min_depth')-25,50);
+ my($xmin) = $P{'ens.min'}-0.5;
+ my($xmax) = $P{'ens.max'}+0.5;
+ my($ymin) = round(antsParam('depth.min')-25,50);
my($ymax) = ($P{water_depth} > 0) ?
round($P{water_depth}+25,50) :
- round($P{max_depth}+$P{ADCP_bin_length}+25,50);
+ round($P{'depth.max'}+$P{ADCP_bin_length}+25,50);
- my($ens_width) = 10 / ($P{max_ens} - $P{min_ens} + 1);
+ my($ens_width) = 10 / ($P{'ens.max'} - $P{'ens.min'} + 1);
my($bin_length) = 10 * $P{ADCP_bin_length} /
- ($P{max_depth}-$P{min_depth}+$P{ADCP_bin_length});
+ ($P{'depth.max'}-$P{'depth.min'}+$P{ADCP_bin_length});
my($R) = "-R$xmin/$xmax/$ymin/$ymax";
GMT_begin($pfn,'-JX10/-10',$R,'-P');