equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T B T |
3 # L I S T B T |
4 # doc: Sat Jan 18 18:41:49 2003 |
4 # doc: Sat Jan 18 18:41:49 2003 |
5 # dlm: Sat Aug 21 23:24:42 2010 |
5 # dlm: Mon Nov 25 18:30:11 2013 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 123 56 NIL 0 0 72 11 2 4 NIL ofnI |
7 # uE-Info: 42 44 NIL 0 0 72 11 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Extract Bottom-Track Data |
10 # Extract Bottom-Track Data |
11 |
11 |
12 # NOTE: NO SOUND-SPEED CORRECTION APPLIED YET!!! |
12 # NOTE: NO SOUND-SPEED CORRECTION APPLIED YET!!! |
37 # Aug 15, 2006: - added -b |
37 # Aug 15, 2006: - added -b |
38 # Aug 25, 2006: - fiddled |
38 # Aug 25, 2006: - fiddled |
39 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
39 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
40 # Nov 1, 2008: - BUG: sig(u) was reported instead of sig(v) |
40 # Nov 1, 2008: - BUG: sig(u) was reported instead of sig(v) |
41 # Jul 30, 2009: - NaN => nan |
41 # Jul 30, 2009: - NaN => nan |
|
42 # Nov 25, 2013: - checkEnsemble() expunged |
42 |
43 |
43 # NOTES: |
44 # NOTES: |
44 # - the RDI BT data contains ranges that are greater than the |
45 # - the RDI BT data contains ranges that are greater than the |
45 # WT ping ranges. I don't know if those data are valid! |
46 # WT ping ranges. I don't know if those data are valid! |
46 # - there is a fair bit of heuristic used, especially in the |
47 # - there is a fair bit of heuristic used, especially in the |
415 #====================================================================== |
416 #====================================================================== |
416 # STEP 1: Calculate Depth (integrate w) |
417 # STEP 1: Calculate Depth (integrate w) |
417 #====================================================================== |
418 #====================================================================== |
418 |
419 |
419 for ($e=0; $e<=$#{$dta{ENSEMBLE}}; $e++) { |
420 for ($e=0; $e<=$#{$dta{ENSEMBLE}}; $e++) { |
420 checkEnsemble(\%dta,$e); |
|
421 $dta{ENSEMBLE}[$e]->{W_REF} = w($e); |
421 $dta{ENSEMBLE}[$e]->{W_REF} = w($e); |
422 next unless (defined($start_e) || |
422 next unless (defined($start_e) || |
423 defined($dta{ENSEMBLE}[$e]->{W_REF})); |
423 defined($dta{ENSEMBLE}[$e]->{W_REF})); |
424 $start_e = $e unless defined($start_e); |
424 $start_e = $e unless defined($start_e); |
425 $end_e = $e if defined($dta{ENSEMBLE}[$e]->{W_REF}); |
425 $end_e = $e if defined($dta{ENSEMBLE}[$e]->{W_REF}); |