new file mode 100644
--- /dev/null
+++ b/libdiscard_beam1.pl
@@ -0,0 +1,23 @@
+#======================================================================
+#                    L I B D I S C A R D _ B E A M 1 . P L 
+#                    doc: Thu Mar 28 21:57:14 2013
+#                    dlm: Mon Nov 11 17:19:09 2013
+#                    (c) 2013 A.M. Thurnherr
+#                    uE-Info: 15 60 NIL 0 0 72 2 2 4 NIL ofnI
+#======================================================================
+
+sub edit_LADCP_vels()
+{
+    print(STDERR "\t\tDISCARDING beam-1 velocities...\n");
+    
+    for (my($ens)=$LADCP_start; $ens<=$LADCP_end; $ens++) {
+        for (my($bin)=0; $bin<$LADCP{N_BINS}; $bin++) {
+            undef($LADCP{ENSEMBLE}[$ens]->{BEAM_VEL}[$bin][0]);
+            @{$LADCP{ENSEMBLE}[$ens]->{VELOCITY}[$bin]} =
+            	velInstrumentToEarth(\%LADCP,$ens,velBeamToInstrument(\%LADCP,@{$LADCP{ENSEMBLE}[$ens]->{BEAM_VEL}[$bin]}));
+        }
+    }
+}
+
+1;
+