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: Mon Sep 12 14:02:24 2016 |
5 # dlm: Fri Oct 13 13:39:55 2017 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 94 26 NIL 0 0 72 0 2 4 NIL ofnI |
7 # uE-Info: 230 37 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: |
90 # - renamed heading to hdg and pitchroll to tilt |
90 # - renamed heading to hdg and pitchroll to tilt |
91 # Mar 22, 2015: - made it work for moored time series as well |
91 # Mar 22, 2015: - made it work for moored time series as well |
92 # Mar 17, 2015: - adapted to new Getopt library |
92 # Mar 17, 2015: - adapted to new Getopt library |
93 # - removed warning |
93 # - removed warning |
94 # Sep 12, 2016: - added %PD0_file |
94 # Sep 12, 2016: - added %PD0_file |
|
95 # Oct 13, 2017: - added instrument orientation |
95 |
96 |
96 # NOTES: |
97 # NOTES: |
97 # - the battery values are based on transmission voltages (different |
98 # - the battery values are based on transmission voltages (different |
98 # from battery voltages) and reported without units (raw 8-bit a2d |
99 # from battery voltages) and reported without units (raw 8-bit a2d |
99 # values) |
100 # values) |
224 |
225 |
225 unless ($dta{TRANSMIT_POWER_HIGH}) { |
226 unless ($dta{TRANSMIT_POWER_HIGH}) { |
226 print(STDERR "WARNING: $0 LOW TRANSMIT POWER!\n"); |
227 print(STDERR "WARNING: $0 LOW TRANSMIT POWER!\n"); |
227 } |
228 } |
228 |
229 |
|
230 printf(STDERR "ADCP : %s (s/n %d) %s\n", |
|
231 $dta{INSTRUMENT_TYPE},$dta{SERIAL_NUMBER}, |
|
232 $dta{ENSEMBLE}[0]->{XDUCER_FACING_UP} ? 'UL' : 'DL'); |
229 printf(STDERR "# of ensembles : %d\n",scalar(@{$dta{ENSEMBLE}})); |
233 printf(STDERR "# of ensembles : %d\n",scalar(@{$dta{ENSEMBLE}})); |
230 |
234 |
231 my($sdt1,$sdt2,$ndt); |
235 my($sdt1,$sdt2,$ndt); |
232 my($mindt1) = my($mindt2) = 9e99; |
236 my($mindt1) = my($mindt2) = 9e99; |
233 my($maxdt1) = my($maxdt2) = 0; |
237 my($maxdt1) = my($maxdt2) = 0; |