diff -r 828e5466391b -r 2d8e1139acd5 plot_wprof.pl --- a/plot_wprof.pl Mon Mar 08 12:07:26 2021 -0500 +++ b/plot_wprof.pl Sat Apr 10 06:00:45 2021 -0400 @@ -1,9 +1,9 @@ #====================================================================== # P L O T _ W P R O F . P L # doc: Sun Jul 26 11:08:50 2015 -# dlm: Sat May 23 11:11:42 2020 +# dlm: Tue Mar 23 08:28:12 2021 # (c) 2015 A.M. Thurnherr -# uE-Info: 89 108 NIL 0 0 72 0 2 4 NIL ofnI +# uE-Info: 25 39 NIL 0 0 72 0 2 4 NIL ofnI #====================================================================== # HISTORY: @@ -22,6 +22,7 @@ # - added blue background for likely in-ice package accelerations # May 16, 2020: - added residual profile data to background # May 23, 2020: - BUG: windows without samples made program bomb +# Mar 23, 2021: - BUG: instrument frequency was rounded to 100kHz # Tweakables: # @@ -231,7 +232,7 @@ GMT_pstext('-F+f9,Helvetica,CornFlowerBlue+jTL -N'); printf(GMT "0.64 1.020 %d kHz $LADCP{INSTRUMENT_TYPE} $P{ADCP_orientation}\n", - round($LADCP{BEAM_FREQUENCY},100)); + round($LADCP{BEAM_FREQUENCY},50)); printf(GMT "0.64 1.055 %s [%.1fm/%1.fm/%1.fm]\n", $LADCP{BEAM_COORDINATES} ? 'beam vels' : 'Earth vels', $LADCP{BLANKING_DISTANCE},$LADCP{TRANSMITTED_PULSE_LENGTH},$LADCP{BIN_LENGTH});