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