equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T V E L S |
3 # L I S T V E L S |
4 # doc: Mon Apr 25 21:12:54 2016 |
4 # doc: Mon Apr 25 21:12:54 2016 |
5 # dlm: Mon Apr 25 21:48:18 2016 |
5 # dlm: Sat Dec 23 16:10:33 2017 |
6 # (c) 2016 A.M. Thurnherr |
6 # (c) 2016 A.M. Thurnherr |
7 # uE-Info: 180 0 NIL 0 0 72 10 2 4 NIL ofnI |
7 # uE-Info: 21 28 NIL 0 0 72 10 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # list water-track velocity samples as ANTS records (PD02ANTS) |
10 # list water-track velocity samples as ANTS records (PD02ANTS) |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
16 # - everything (e.g. beams) is numbered from 1 |
16 # - everything (e.g. beams) is numbered from 1 |
17 # - no support for BT data |
17 # - no support for BT data |
18 |
18 |
19 use Getopt::Std; |
19 use Getopt::Std; |
20 |
20 |
21 $ADCP_tools_minVersion = 1.4; |
21 $ADCP_tools_minVersion = 2.1; |
22 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
22 ($ADCP_TOOLS) = ($0 =~ m{(.*/)[^/]+}); |
23 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
23 require "$ADCP_TOOLS/ADCP_tools_lib.pl"; |
24 |
24 |
25 die("Usage: $0 [-r)ange <first_ens,last_ens>] [-b)ins <first_bin,last_bin>] " . |
25 die("Usage: $0 [-r)ange <first_ens,last_ens>] [-b)ins <first_bin,last_bin>] " . |
26 "[-M)agnetic <declination>] " . |
26 "[-M)agnetic <declination>] " . |