find_seabed.pl
changeset 56 8f120b9f795a
parent 46 cc6c4309828a
--- a/find_seabed.pl	Sat Apr 10 06:00:45 2021 -0400
+++ b/find_seabed.pl	Sat Jul 24 10:35:41 2021 -0400
@@ -1,9 +1,9 @@
 #======================================================================
 #                    F I N D _ S E A B E D . P L 
 #                    doc: Sun May 23 20:26:11 2010
-#                    dlm: Thu May 19 10:40:55 2016
+#                    dlm: Thu Jul  1 09:39:12 2021
 #                    (c) 2010 A.M. Thurnherr
-#                    uE-Info: 18 46 NIL 0 0 72 0 2 4 NIL ofnI
+#                    uE-Info: 19 46 NIL 0 0 72 0 2 4 NIL ofnI
 #======================================================================
 
 # HISTORY:
@@ -16,6 +16,7 @@
 #	Jan 26, 2016: - added %PARAMs
 #	May 18, 2016: - removed assumption of 1500m/s soundspeed setting
 #	May 19, 2016: - updated to ADCP_tools V1.6
+#	Jul  1, 2021: - made %PARAMs more standard
 
 # NOTES:
 #	1) BT range is corrected for sound speed at the transducer. This is not
@@ -38,10 +39,10 @@
 	my($i,$dd,$sd,$nd);
 	my(@guesses);
 
-	&antsAddParams('SS_min_allowed_range',$SS_min_allowed_range,
-				   'SS_max_allowed_range',$SS_max_allowed_range,
+	&antsAddParams('SS_allowed_range.min',$SS_min_allowed_range,
+				   'SS_allowed_range.max',$SS_max_allowed_range,
 				   'SS_search_window_halfwidth',$SS_search_window_halfwidth,
-				   'SS_max_allowed_depth_range',$SS_max_allowed_depth_range);
+				   'SS_allowed_depth_range.max',$SS_max_allowed_depth_range);
 
 	return undef unless ($be-$SS_search_window_halfwidth >= 0 &&
 						 $be+$SS_search_window_halfwidth <= $#{$d->{ENSEMBLE}});