equal
deleted
inserted
replaced
1 #====================================================================== |
1 #====================================================================== |
2 # E D I T _ D A T A . P L |
2 # E D I T _ D A T A . P L |
3 # doc: Sat May 22 21:35:55 2010 |
3 # doc: Sat May 22 21:35:55 2010 |
4 # dlm: Wed May 18 22:34:15 2016 |
4 # dlm: Tue May 24 16:36:37 2016 |
5 # (c) 2010 A.M. Thurnherr |
5 # (c) 2010 A.M. Thurnherr |
6 # uE-Info: 269 0 NIL 0 0 72 2 2 4 NIL ofnI |
6 # uE-Info: 374 18 NIL 0 0 72 2 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # HISTORY: |
9 # HISTORY: |
10 # May 22, 2010: - created |
10 # May 22, 2010: - created |
11 # May 24, 2010: - added editSideLobesFromSeabed() |
11 # May 24, 2010: - added editSideLobesFromSeabed() |
32 # May 21, 2014: - got it to work correctly |
32 # May 21, 2014: - got it to work correctly |
33 # - croak -> error |
33 # - croak -> error |
34 # Sep 26, 2015: - added $vessel_draft to editSideLobes |
34 # Sep 26, 2015: - added $vessel_draft to editSideLobes |
35 # Jan 23, 2016: - added &editBadTimeLagging() |
35 # Jan 23, 2016: - added &editBadTimeLagging() |
36 # May 18, 2016: - removed assumption of 1500m/s soundspeed setting |
36 # May 18, 2016: - removed assumption of 1500m/s soundspeed setting |
|
37 # May 24, 2016: - calc_binDepths() -> binDepths() |
37 |
38 |
38 # NOTES: |
39 # NOTES: |
39 # - editCorr_Earthcoords() is overly conservative and removed most |
40 # - editCorr_Earthcoords() is overly conservative and removed most |
40 # or all 3-beam solutions |
41 # or all 3-beam solutions |
41 # - all bins must be edited (not just the ones between $LADCP_firstBin |
42 # - all bins must be edited (not just the ones between $LADCP_firstBin |
368 my($delta_t) = $LADCP{ENSEMBLE}[$e]->{UNIX_TIME} - $LADCP{ENSEMBLE}[$e-1]->{UNIX_TIME}; |
369 my($delta_t) = $LADCP{ENSEMBLE}[$e]->{UNIX_TIME} - $LADCP{ENSEMBLE}[$e-1]->{UNIX_TIME}; |
369 my($dz_max) = $DASSprof[int($LADCP{ENSEMBLE}[$e]->{CTD_DEPTH})]*$delta_t / 2; |
370 my($dz_max) = $DASSprof[int($LADCP{ENSEMBLE}[$e]->{CTD_DEPTH})]*$delta_t / 2; |
370 my($beam_tilt) = max(abs($LADCP{ENSEMBLE}[$e]->{GIMBAL_PITCH}), |
371 my($beam_tilt) = max(abs($LADCP{ENSEMBLE}[$e]->{GIMBAL_PITCH}), |
371 abs($LADCP{ENSEMBLE}[$e]->{ROLL})); |
372 abs($LADCP{ENSEMBLE}[$e]->{ROLL})); |
372 my($dz_min) = $dz_max * cos(rad($LADCP{BEAM_ANGLE} + $beam_tilt + $bha)); |
373 my($dz_min) = $dz_max * cos(rad($LADCP{BEAM_ANGLE} + $beam_tilt + $bha)); |
373 my(@bd) = calc_binDepths($e); |
374 my(@bd) = binDepths($e); |
374 |
375 |
375 $dz_max *= $PPI_extend_upper_limit |
376 $dz_max *= $PPI_extend_upper_limit |
376 if numberp($PPI_extend_upper_limit); |
377 if numberp($PPI_extend_upper_limit); |
377 |
378 |
378 my($dirty) = 0; |
379 my($dirty) = 0; |