| author | A.M. Thurnherr <athurnherr@yahoo.com> |
| Fri, 06 Mar 2015 15:51:10 -0500 | |
| changeset 32 | 9b972ce37c3b |
| parent 25 | 91bd907db97f |
| permissions | -rw-r--r-- |
|
25
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
1 |
#====================================================================== |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
2 |
# L I B D I S C A R D _ B E A M 3 . P L |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
3 |
# doc: Thu Mar 28 21:57:14 2013 |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
4 |
# dlm: Tue Mar 4 18:16:24 2014 |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
5 |
# (c) 2013 A.M. Thurnherr |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
6 |
# uE-Info: 15 60 NIL 0 0 72 2 2 4 NIL ofnI |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
7 |
#====================================================================== |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
8 |
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
9 |
sub edit_LADCP_vels() |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
10 |
{
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
11 |
print(STDERR "\t\tDISCARDING beam-3 velocities...\n"); |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
12 |
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
13 |
for (my($ens)=$LADCP_start; $ens<=$LADCP_end; $ens++) {
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
14 |
for (my($bin)=0; $bin<$LADCP{N_BINS}; $bin++) {
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
15 |
undef($LADCP{ENSEMBLE}[$ens]->{BEAM_VEL}[$bin][2]);
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
16 |
@{$LADCP{ENSEMBLE}[$ens]->{VELOCITY}[$bin]} =
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
17 |
velInstrumentToEarth(\%LADCP,$ens,velBeamToInstrument(\%LADCP,@{$LADCP{ENSEMBLE}[$ens]->{BEAM_VEL}[$bin]}));
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
18 |
} |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
19 |
} |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
20 |
} |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
21 |
|
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
22 |
1; |
|
91bd907db97f
before debugging weird nsamp problem
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
23 |