author | A.M. Thurnherr <athurnherr@yahoo.com> |
Wed, 13 May 2015 21:30:27 +0000 | |
changeset 35 | 3d769eee8c4f |
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 |