RDI_Coords.pl
changeset 8 7ad053ea1742
parent 6 603221e51c6f
child 13 b176da8559b3
--- a/RDI_Coords.pl
+++ b/RDI_Coords.pl
@@ -1,9 +1,9 @@
 #======================================================================
 #                    R D I _ C O O R D S . P L 
 #                    doc: Sun Jan 19 17:57:53 2003
-#                    dlm: Sat Jan 22 22:35:17 2011
+#                    dlm: Sun Jan 15 20:04:13 2012
 #                    (c) 2003 A.M. Thurnherr
-#                    uE-Info: 262 0 NIL 0 0 72 2 2 4 NIL ofnI
+#                    uE-Info: 33 74 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # RDI Workhorse Coordinate Transformations
@@ -30,6 +30,7 @@
 #	Dec 23, 2010: - added &velBeamToBPInstrument
 #	Jan 22, 2011: - made velApplyHdgBias calculate sin/cos every time to allow
 #				    per-ensemble corrections
+#	Jan 15, 2012: - replaced defined(@...) by (@...) to get rid of warning
 
 use strict;
 use POSIX;
@@ -59,7 +60,7 @@
 					   		 defined($v3) + defined($v4)
 								>= $RDI_Coords::minValidVels);
 
-		unless (defined(@B2I)) {
+		unless (@B2I) {
 #			print(STDERR "RDI_Coords::minValidVels = $RDI_Coords::minValidVels\n");
 			my($a) = 1 / (2 * sin(rad($dta->{BEAM_ANGLE})));
 			my($b) = 1 / (4 * cos(rad($dta->{BEAM_ANGLE})));