listBT
changeset 1 a3b6a908dec5
parent 0 229a0d72d2ab
child 14 8c79b38a7086
--- a/listBT
+++ b/listBT
@@ -2,9 +2,9 @@
 #======================================================================
 #                    L I S T B T 
 #                    doc: Sat Jan 18 18:41:49 2003
-#                    dlm: Sun May 23 16:33:33 2010
+#                    dlm: Sat Aug 21 23:24:42 2010
 #                    (c) 2003 A.M. Thurnherr
-#                    uE-Info: 527 42 NIL 0 0 72 11 2 4 NIL ofnI
+#                    uE-Info: 123 56 NIL 0 0 72 11 2 4 NIL ofnI
 #======================================================================
 
 # Extract Bottom-Track Data
@@ -120,7 +120,7 @@
 			if ($dta{BT_MIN_EVAL_AMPLITUDE} > $opt_a);
 	die("$0: maximum instrument BT error velocity ($dta{BT_MAX_ERROR_VELOCITY}) " .
 		"too small for selected criterion (-e $opt_e) --- use -f to override\n")
-			if ($dta{BT_MAX_ERROR_VELOCITY} < $opt_e);
+			if (defined($dta{BT_MAX_ERROR_VELOCITY}) && $dta{BT_MAX_ERROR_VELOCITY} < $opt_e);
 }
 
 require $opt_F if defined($opt_F);					# load filter