RDI_Utils.pl
changeset 23 fb0c269b1eaa
parent 19 e23a5fd2923a
child 31 b6ca27a1d19c
--- a/RDI_Utils.pl
+++ b/RDI_Utils.pl
@@ -1,9 +1,9 @@
 #======================================================================
 #                    R D I _ U T I L S . P L 
 #                    doc: Wed Feb 12 10:21:32 2003
-#                    dlm: Thu May 29 09:23:46 2014
+#                    dlm: Sun Mar 22 10:19:08 2015
 #                    (c) 2003 A.M. Thurnherr
-#                    uE-Info: 302 0 NIL 0 0 72 10 2 4 NIL ofnI
+#                    uE-Info: 494 98 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # miscellaneous RDI-specific utilities
@@ -50,6 +50,7 @@
 #	Feb 22, 2014: - changed gap heuristic
 #			      - Earth coord beam-pair warning removed
 #	May 29, 2014: - removed unused code (disabled warning) from ref_lr_w
+#	Mar 22, 2015: - BUG: mk_prof could bomb because of division-by-zero in return statement
 
 use strict;
 
@@ -489,7 +490,8 @@
 	
 	filterEnsembleStats() if defined($filter);
 
-	return ($firstgood,$lastgood,$atbottom,$w_gap_time,$zErr,$maxz,sqrt($rms_heave_accel_ssq/$rms_heave_accel_nsamp));
+	return ($firstgood,$lastgood,$atbottom,$w_gap_time,$zErr,$maxz,
+			($rms_heave_accel_nsamp>0) ? sqrt($rms_heave_accel_ssq/$rms_heave_accel_nsamp) : 'nan');
 }
 
 #----------------------------------------------------------------------