equal
deleted
inserted
replaced
1 #====================================================================== |
1 #====================================================================== |
2 # L A D C P P R O C . U H C O D E |
2 # L A D C P P R O C . U H C O D E |
3 # doc: Fri Sep 17 20:27:53 2010 |
3 # doc: Fri Sep 17 20:27:53 2010 |
4 # dlm: Tue Mar 4 13:44:48 2014 |
4 # dlm: Tue May 20 09:05:56 2014 |
5 # (c) 2010 A.M. Thurnherr & E. Firing |
5 # (c) 2010 A.M. Thurnherr & E. Firing |
6 # uE-Info: 44 66 NIL 0 0 72 2 2 4 NIL ofnI |
6 # uE-Info: 218 15 NIL 0 0 72 2 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # PERLified functions from Eric's [merge.c]; with mods |
9 # PERLified functions from Eric's [merge.c]; with mods |
10 |
10 |
11 # NOTES: |
11 # NOTES: |
208 } |
208 } |
209 } # for ($bin=0... |
209 } # for ($bin=0... |
210 } |
210 } |
211 |
211 |
212 ## The following is for editing out the second bottom bounce. |
212 ## The following is for editing out the second bottom bounce. |
|
213 # - in the UH code, tilt = max(pitch,roll) |
|
214 # - using the real tilt (here) implies that PPI editing is too conservative |
|
215 # in case of large tilts |
|
216 # - since, however, the sound speed at the transducer is used instead |
|
217 # of the mean soundspeed below the ADCP, the difference is unlikely |
|
218 # to matter |
|
219 |
213 sub set_PPI_flags($$) |
220 sub set_PPI_flags($$) |
214 { |
221 { |
215 my($ens,$De) = @_; |
222 my($ens,$De) = @_; |
216 my($clip_z0,$clip_z1); |
223 my($clip_z0,$clip_z1); |
217 |
224 |