--- a/LADCPproc.bestLag
+++ b/LADCPproc.bestLag
@@ -1,9 +1,9 @@
#======================================================================
# L A D C P P R O C . B E S T L A G
# doc: Tue Sep 28 21:58:48 2010
-# dlm: Fri Oct 19 11:51:04 2012
+# dlm: Tue Jun 25 14:40:05 2013
# (c) 2010 A.M. Thurnherr
-# uE-Info: 26 46 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 193 31 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
# TODO:
@@ -24,6 +24,7 @@
# elapsed offsets
# May 18, 2012: - BUG: window start index was not always calculated correctly
# Oct 19, 2012: - BUG: opt_i had wrong sign!
+# Jun 25, 2013: - adapted to :: %PARAM convention
sub interp_LADCP_w($$)
{
@@ -169,7 +170,7 @@
}
}
printf(STDERR "(x%d)",$nSame) if ($nSame > 1);
- &antsAddParams('time_lags',$lags);
+ &antsAddParams('LADCPproc::time_lags',$lags);
#----------------------
# find most popular lag
@@ -189,7 +190,7 @@
printf(STDERR "\n\t\tmost popular lag = %ds\n",($first_guess_lag+$best_lag)*$CTD{sampint});
}
- &antsAddParams('LADCP_time_lag',($first_guess_lag + $best_lag) * $CTD{sampint});
+ &antsAddParams('LADCPproc::LADCP_time_lag',($first_guess_lag + $best_lag) * $CTD{sampint});
return ($first_guess_lag + $best_lag) * $CTD{sampint};
}