# HG changeset patch # User A.M. Thurnherr # Date 1627133896 14400 # Node ID 70e566505a12bbdd8b32aabb50012a4a48db9d99 # Parent 90f620beec6b2fe515fb2cb0b03fce677ccb100a V7.3 diff --git a/HISTORY b/HISTORY --- a/HISTORY +++ b/HISTORY @@ -1,9 +1,9 @@ #====================================================================== # H I S T O R Y # doc: Thu May 7 13:12:05 2015 -# dlm: Tue Jun 29 12:10:04 2021 +# dlm: Sat Jul 24 09:37:46 2021 # (c) 2015 A.M. Thurnherr -# uE-Info: 193 22 NIL 0 0 72 0 2 4 NIL ofnI +# uE-Info: 257 70 NIL 0 0 72 0 2 4 NIL ofnI #====================================================================== May 7, 2015: @@ -186,7 +186,7 @@ - published V7.1 ---------------------------------------------------------------------- -V7.2 +V7.2 (published Jun 29, 2021) - various bug fixes and minor additions - new features - TEOS10 support @@ -250,3 +250,8 @@ # Mar 1, 2021: - adapted rotation_ts and angle_ts to deal with nans +---------------------------------------------------------------------- +V7.3 (published Jul 24, 2021) + - bug fixes [libGHP.pl] [libGMT.pl] + - minor improvement to [libIMP.pl] +---------------------------------------------------------------------- diff --git a/ants.pl b/ants.pl --- a/ants.pl +++ b/ants.pl @@ -2,9 +2,9 @@ #====================================================================== # A N T S . P L # doc: Fri Jun 19 14:01:06 1998 -# dlm: Mon Apr 13 11:17:43 2020 +# dlm: Thu Jul 1 18:46:26 2021 # (c) 1998 A.M. Thurnherr -# uE-Info: 33 21 NIL 0 0 72 2 2 4 NIL ofnI +# uE-Info: 29 51 NIL 0 0 72 2 2 4 NIL ofnI #====================================================================== # HISTORY: @@ -26,11 +26,12 @@ # Dec 8, 2017: - updated to V7.0 (to avoid absolute-path symlink) # Nov 27, 2018: - updated to V7.1 (for LADCP_w 1.4 release) # Apr 13, 2020: - updated to V7.2 (for MIMP_tools) +# Jul 1, 2021: - updated to V7.3 because of a bug exec($ENV{ANTS_PERL},$0,@ARGV),die("$ENV{ANTS_PERL}: $!") if (defined($ENV{ANTS_PERL}) && $^X ne $ENV{ANTS_PERL}); -$antsLibVersion = 7.2; +$antsLibVersion = 7.3; die(sprintf("$0: obsolete library V%.1f; V%.1f required\n", $antsLibVersion,$antsMinLibVersion)) diff --git a/libGHP.pl b/libGHP.pl --- a/libGHP.pl +++ b/libGHP.pl @@ -1,17 +1,18 @@ #====================================================================== # L I B G H P . P L # doc: Fri Sep 7 09:56:08 2012 -# dlm: Mon Oct 22 13:10:47 2012 +# dlm: Wed Jul 14 07:41:20 2021 # (c) 2012 A.M. Thurnherr -# uE-Info: 11 0 NIL 0 0 72 2 2 4 NIL ofnI +# uE-Info: 12 50 NIL 0 0 72 2 2 4 NIL ofnI #====================================================================== # HISTORY: # Sep 7, 2012: - created # Oct 22, 2012: - cosmetics +# Jul 14, 2021: - BUG: adapted to new libGM name require "$ANTS/libfuns.pl"; # arccosh -require "$ANTS/libGM.pl"; # GM_N0 +require "$ANTS/libGM76.pl"; # GM_N0 #---------------------------------------------------------------------------- # h(R_omega) correction factor for different shear/strain (R_omega) ratios diff --git a/libGMT.pl b/libGMT.pl --- a/libGMT.pl +++ b/libGMT.pl @@ -1,9 +1,9 @@ #====================================================================== # L I B G M T . P L # doc: Sun Jun 14 13:45:47 2015 -# dlm: Sun Apr 11 09:55:22 2021 +# dlm: Thu Jul 1 18:45:15 2021 # (c) 2015 A.M. Thurnherr -# uE-Info: 47 34 NIL 0 0 72 2 2 4 NIL ofnI +# uE-Info: 48 66 NIL 0 0 72 2 2 4 NIL ofnI #====================================================================== # perl implementation of /Data/Makefiles/Makefile.GMT @@ -45,6 +45,7 @@ # Mar 17, 2016: - added check for gmt5 on load # Apr 10, 2021: - adapted to GMT6 (suppress warnings) # Apr 11, 2021: - added gmt set GMT_AUTO_DOWNLOAD off +# Jul 1, 2021: - BUG: gmt check was based on psxy, not gmt psxy $DEBUG = 0; @@ -53,7 +54,7 @@ #---------------------------------------------------------------------- if (`which gmt` eq '') { - if (`which psxy` eq '') { + if (`which gmt` eq '') { croak("$0: [libGMT.pl] GMT version 6 required\n"); } else { croak("$0: [libGMT.pl] GMT version 6 required (gmt4 installed)\n"); diff --git a/libIMP.pl b/libIMP.pl --- a/libIMP.pl +++ b/libIMP.pl @@ -1,9 +1,9 @@ #====================================================================== # L I B I M P . P L # doc: Tue Nov 26 21:59:40 2013 -# dlm: Tue Apr 14 17:23:47 2020 +# dlm: Sat Jul 24 09:37:27 2021 # (c) 2017 A.M. Thurnherr -# uE-Info: 736 58 NIL 0 0 72 0 2 4 NIL ofnI +# uE-Info: 70 13 NIL 0 0 72 0 2 4 NIL ofnI #====================================================================== # HISTORY: @@ -65,6 +65,9 @@ # - BUG: dhist_binsize != 1 did not work # - BUG: dhist agreement % was not rounded # Apr 14, 2020: - cosmetics +# Jul 12, 2021: - improvements to histogram plot +# Jul 24, 2021: - updated docu +# HISTORY END #---------------------------------------------------------------------- # gRef() library @@ -458,9 +461,18 @@ my($plotsize) = '13c'; my($xmin,$xmax) = (-180.5,180.5); my($ymin) = 0; - my($ymax) = 1.05 * $dhist[$HDG_offset/$dhist_binsize]; + my($ymax) = 0; + + for (my($i)=0; $i<@dhist; $i++) { + $ymax = $dhist[$i] if ($dhist[$i] > $ymax); + } + $ymax = 1.05 * $ymax; GMT_begin("$P{profile_id}${opt_a}_hdg_offset.ps","-JX${plotsize}","-R$xmin/$xmax/$ymin/$ymax",'-X6 -Y4 -P'); + if (defined($opt_o)) { + GMT_psxy("-W2,red"); + printf(GMT "%f %f\n%f %f\n",$opt_o,0,$opt_o,$ymax); + } GMT_psxy("-Sb${dhist_binsize}u -GCornFlowerBlue"); for (my($i)=0; $i<@dhist; $i++) { next unless $dhist[$i];