equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # M K P R O F I L E |
3 # M K P R O F I L E |
4 # doc: Sun Jan 19 18:55:26 2003 |
4 # doc: Sun Jan 19 18:55:26 2003 |
5 # dlm: Thu Apr 18 16:28:13 2019 |
5 # dlm: Sat Apr 10 05:51:48 2021 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 98 54 NIL 0 0 72 0 2 4 NIL ofnI |
7 # uE-Info: 99 35 NIL 0 0 72 0 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Make an LADCP Profile by Integrating W (similar to Firing's scan*). |
10 # Make an LADCP Profile by Integrating W (similar to Firing's scan*). |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
94 # Sep 12, 2016: - added %PD0_file |
94 # Sep 12, 2016: - added %PD0_file |
95 # Oct 13, 2017: - added instrument orientation |
95 # Oct 13, 2017: - added instrument orientation |
96 # Apr 2, 2018: - BUG: velBeamToInstrument() used old usage |
96 # Apr 2, 2018: - BUG: velBeamToInstrument() used old usage |
97 # Apr 24, 2018: - BUG: bin1 was used even with zero blanking |
97 # Apr 24, 2018: - BUG: bin1 was used even with zero blanking |
98 # Apr 18, 2019: - added coord-transformation %PARAMs |
98 # Apr 18, 2019: - added coord-transformation %PARAMs |
|
99 # Apr 10, 2021: - adapted to V2.4 |
|
100 # HISTORY END |
99 |
101 |
100 # NOTES: |
102 # NOTES: |
101 # - the battery values are based on transmission voltages (different |
103 # - the battery values are based on transmission voltages (different |
102 # from battery voltages) and reported without units (raw 8-bit a2d |
104 # from battery voltages) and reported without units (raw 8-bit a2d |
103 # values) |
105 # values) |
224 |
226 |
225 unless ($dta{NARROW_BANDWIDTH}) { |
227 unless ($dta{NARROW_BANDWIDTH}) { |
226 print(STDERR "WARNING: $0 WIDE BANDWIDTH!\n"); |
228 print(STDERR "WARNING: $0 WIDE BANDWIDTH!\n"); |
227 } |
229 } |
228 |
230 |
229 unless ($dta{TRANSMIT_POWER_HIGH}) { |
231 unless ($dta{TRANSMIT_POWER_MAX}) { |
230 print(STDERR "WARNING: $0 LOW TRANSMIT POWER!\n"); |
232 print(STDERR "WARNING: $0 LOW TRANSMIT POWER!\n"); |
231 } |
233 } |
232 |
234 |
233 printf(STDERR "ADCP : %s (s/n %d) %s\n", |
235 printf(STDERR "ADCP : %s (s/n %d) %s\n", |
234 $dta{INSTRUMENT_TYPE},$dta{SERIAL_NUMBER}, |
236 $dta{INSTRUMENT_TYPE},$dta{SERIAL_NUMBER}, |