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: Sat Dec 23 16:10:33 2017 |
5 # dlm: Thu Oct 4 16:03:35 2018 |
6 # (c) 2016 A.M. Thurnherr |
6 # (c) 2016 A.M. Thurnherr |
7 # uE-Info: 21 28 NIL 0 0 72 10 2 4 NIL ofnI |
7 # uE-Info: 14 61 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: |
13 # Apr 25, 2016: - created from [listBins] |
13 # Apr 25, 2016: - created from [listBins] |
|
14 # Oct 4, 2016: - removed pointless transducer config check |
14 |
15 |
15 # General Notes: |
16 # General Notes: |
16 # - everything (e.g. beams) is numbered from 1 |
17 # - everything (e.g. beams) is numbered from 1 |
17 # - no support for BT data |
18 # - no support for BT data |
18 |
19 |
93 last if (defined($last_ens) && |
94 last if (defined($last_ens) && |
94 $dta{ENSEMBLE}[$e]->{NUMBER} > $last_ens); |
95 $dta{ENSEMBLE}[$e]->{NUMBER} > $last_ens); |
95 $P{last_ens} = $dta{ENSEMBLE}[$e]->{NUMBER}; |
96 $P{last_ens} = $dta{ENSEMBLE}[$e]->{NUMBER}; |
96 $le = $e; |
97 $le = $e; |
97 |
98 |
98 die("3-beams used in ensemble #$dta{ENSEMBLE}[$e]->{NUMBER}\n") |
|
99 if ($dta{ENSEMBLE}[$e]->{N_BEAMS_USED} < 4); |
|
100 die("BIT error in ensemble $dta{ENSEMBLE}[$e]->{NUMBER}\n") |
99 die("BIT error in ensemble $dta{ENSEMBLE}[$e]->{NUMBER}\n") |
101 if defined($dta{ENSEMBLE}[$e]->{BUILT_IN_TEST_ERROR}); |
100 if defined($dta{ENSEMBLE}[$e]->{BUILT_IN_TEST_ERROR}); |
102 die("Low gain in ensemble #$dta{ENSEMBLE}[$e]->{NUMBER}\n") |
101 die("Low gain in ensemble #$dta{ENSEMBLE}[$e]->{NUMBER}\n") |
103 if ($dta{ENSEMBLE}[$e]->{LOW_GAIN}); |
102 if ($dta{ENSEMBLE}[$e]->{LOW_GAIN}); |
104 |
103 |