19
|
1 |
#======================================================================
|
|
2 |
# L I B D I S C A R D _ U C _ B E A M 4 . P L
|
|
3 |
# doc: Thu Mar 28 21:57:14 2013
|
|
4 |
# dlm: Fri Mar 29 15:28:22 2013
|
|
5 |
# (c) 2013 A.M. Thurnherr
|
|
6 |
# uE-Info: 15 60 NIL 0 0 72 2 2 4 NIL ofnI
|
|
7 |
#======================================================================
|
|
8 |
|
|
9 |
sub edit_LADCP_vels()
|
|
10 |
{
|
|
11 |
print(STDERR "\t\tDISCARDING beam-4 velocities from upcast...\n");
|
|
12 |
|
|
13 |
for (my($ens)=$LADCP_bottom; $ens<=$LADCP_end; $ens++) {
|
|
14 |
for (my($bin)=0; $bin<$LADCP{N_BINS}; $bin++) {
|
|
15 |
undef($LADCP{ENSEMBLE}[$ens]->{BEAM_VEL}[$bin][3]);
|
|
16 |
@{$LADCP{ENSEMBLE}[$ens]->{VELOCITY}[$bin]} =
|
|
17 |
velInstrumentToEarth(\%LADCP,$ens,velBeamToInstrument(\%LADCP,@{$LADCP{ENSEMBLE}[$ens]->{BEAM_VEL}[$bin]}));
|
|
18 |
}
|
|
19 |
}
|
|
20 |
}
|
|
21 |
|
|
22 |
1;
|
|
23 |
|