equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T W |
3 # L I S T W |
4 # doc: Wed Mar 24 06:45:09 2004 |
4 # doc: Wed Mar 24 06:45:09 2004 |
5 # dlm: Thu Mar 17 07:45:02 2016 |
5 # dlm: Mon Apr 2 18:32:03 2018 |
6 # (c) 2004 A.M. Thurnherr |
6 # (c) 2004 A.M. Thurnherr |
7 # uE-Info: 24 49 NIL 0 0 72 0 2 4 NIL ofnI |
7 # uE-Info: 25 61 NIL 0 0 72 0 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # dump vertical velocities |
10 # dump vertical velocities |
11 |
11 |
12 # NB: currently broken |
12 # NB: currently broken |
20 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
20 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
21 # Jul 30, 2009: - NaN => nan |
21 # Jul 30, 2009: - NaN => nan |
22 # Nov 25, 2013: - checkEnsemble() expunged |
22 # Nov 25, 2013: - checkEnsemble() expunged |
23 # Mar 17, 2016: - removed warning |
23 # Mar 17, 2016: - removed warning |
24 # - updated ancient library names |
24 # - updated ancient library names |
|
25 # Apr 2, 2018: - BUG: velBeamToInstrument() used old usage |
25 |
26 |
26 $0 =~ m{(.*)/[^/]+}; |
27 $0 =~ m{(.*)/[^/]+}; |
27 require "$1/RDI_PD0_IO.pl"; |
28 require "$1/RDI_PD0_IO.pl"; |
28 require "$1/RDI_Coords.pl"; |
29 require "$1/RDI_Coords.pl"; |
29 require "$1/RDI_Utils.pl"; |
30 require "$1/RDI_Utils.pl"; |
100 next if ($dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][0] < 100 || |
101 next if ($dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][0] < 100 || |
101 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][1] < 100 || |
102 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][1] < 100 || |
102 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][2] < 100 || |
103 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][2] < 100 || |
103 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][3] < 100); |
104 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][3] < 100); |
104 @v = velInstrumentToEarth(\%dta,$ens, |
105 @v = velInstrumentToEarth(\%dta,$ens, |
105 velBeamToInstrument(\%dta, |
106 velBeamToInstrument(\%dta,$ens, |
106 @{$dta{ENSEMBLE}[$ens]->{VELOCITY}[$i]})); |
107 @{$dta{ENSEMBLE}[$ens]->{VELOCITY}[$i]})); |
107 } else { |
108 } else { |
108 next if ($dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][0] > 0 || |
109 next if ($dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][0] > 0 || |
109 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][1] > 0 || |
110 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][1] > 0 || |
110 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][2] > 0 || |
111 $dta{ENSEMBLE}[$ens]->{PERCENT_GOOD}[$i][2] > 0 || |