equal
deleted
inserted
replaced
1 #====================================================================== |
1 #====================================================================== |
2 # B O T T O M _ T R A C K I N G . P L |
2 # B O T T O M _ T R A C K I N G . P L |
3 # doc: Wed Oct 20 21:05:37 2010 |
3 # doc: Wed Oct 20 21:05:37 2010 |
4 # dlm: Tue May 1 21:48:54 2018 |
4 # dlm: Thu Jul 1 09:38:25 2021 |
5 # (c) 2010 A.M. Thurnherr |
5 # (c) 2010 A.M. Thurnherr |
6 # uE-Info: 21 14 NIL 0 0 72 2 2 4 NIL ofnI |
6 # uE-Info: 20 13 NIL 0 0 72 2 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # HISTORY: |
9 # HISTORY: |
10 # Oct 20, 2010: - created |
10 # Oct 20, 2010: - created |
11 # Dec 30, 2010: - adapted for use with LADCP_w |
11 # Dec 30, 2010: - adapted for use with LADCP_w |
14 # Apr 22, 2013: - replace output_bin_size by opt_o |
14 # Apr 22, 2013: - replace output_bin_size by opt_o |
15 # Mar 4, 2014: - removed old unused code |
15 # Mar 4, 2014: - removed old unused code |
16 # Jan 26, 2016: - added %PARAMs |
16 # Jan 26, 2016: - added %PARAMs |
17 # May 24, 2016: - calc_binDepths() -> binDepths() |
17 # May 24, 2016: - calc_binDepths() -> binDepths() |
18 # May 1, 2018: - log-file cosmetics |
18 # May 1, 2018: - log-file cosmetics |
|
19 # Jul 1, 2021: - made %PARAMs more standard |
|
20 # HISTORY END |
19 |
21 |
20 # This code is derived from the one used in LADCPproc, with the following |
22 # This code is derived from the one used in LADCPproc, with the following |
21 # differences: |
23 # differences: |
22 # 1) velocity editing is simpler: no wake editing, no PPI editing, no shear |
24 # 1) velocity editing is simpler: no wake editing, no PPI editing, no shear |
23 # editing, no w outlier |
25 # editing, no w outlier |
117 |
119 |
118 sub calc_BTprof($$$$) |
120 sub calc_BTprof($$$$) |
119 { |
121 { |
120 my($LADCP_start,$LADCP_end,$wd,$sig_wd) = @_; |
122 my($LADCP_start,$LADCP_end,$wd,$sig_wd) = @_; |
121 |
123 |
122 &antsAddParams('BT_max_range',$BT_max_range, |
124 &antsAddParams('BT_range.max',$BT_max_range, |
123 'BT_max_bin_range_diff',$BT_max_bin_range_diff, |
125 'BT_bin_range_diff.max',$BT_max_bin_range_diff, |
124 'BT_max_w_error',$BT_max_w_error); |
126 'BT_w_error.max',$BT_max_w_error); |
125 |
127 |
126 for (my($ens)=$LADCP_start; $ens<=$LADCP_end; $ens++) { |
128 for (my($ens)=$LADCP_start; $ens<=$LADCP_end; $ens++) { |
127 next unless ($wd-$LADCP{ENSEMBLE}[$ens]->{CTD_DEPTH} < $BT_max_range); |
129 next unless ($wd-$LADCP{ENSEMBLE}[$ens]->{CTD_DEPTH} < $BT_max_range); |
128 binBTprof($ens,$wd,$sig_wd); |
130 binBTprof($ens,$wd,$sig_wd); |
129 } |
131 } |