diff -r 84914596c635 -r 0f6d9e64cc4f time_series.pl --- a/time_series.pl Tue Nov 27 17:00:50 2018 -0500 +++ b/time_series.pl Tue Aug 27 19:11:54 2019 -0400 @@ -1,9 +1,9 @@ #====================================================================== # T I M E _ S E R I E S . P L # doc: Sun May 23 16:40:53 2010 -# dlm: Wed May 2 11:23:48 2018 +# dlm: Sun Apr 21 14:13:05 2019 # (c) 2010 A.M. Thurnherr -# uE-Info: 24 57 NIL 0 0 72 2 2 4 NIL ofnI +# uE-Info: 25 56 NIL 0 0 72 2 2 4 NIL ofnI #====================================================================== # HISTORY: @@ -22,6 +22,7 @@ # - BUG: gap heuristic could not deal with P06#025 # May 1, 2018: - added reflr u and v calculations # - BUG: reflr u and v calcs did not work +# Apr 21, 2019: - improved surface gap warning message # NOTES: # - resulting DEPTH field based on integrated w without any sound speed correction @@ -107,8 +108,9 @@ last; } elsif ((abs($depth) < 10) || # shallow gap at the beginning ($depth == $max_depth)) { # biased in-air data - warning(1,"long surface gap (%ds) --- restarting at ens#$dta->{ENSEMBLE}[$e]->{NUMBER}\n",$dt); - warning(1,"[depth = $depth, max_depth = $max_depth]\n"); + my($md) = defined($max_depth) ? sprintf('%d',$max_depth) : 'undefined'; + warning(1,"long surface gap (%ds) --- restarting at ens#$dta->{ENSEMBLE}[$e]->{NUMBER} " . + "[depth = %d m; max_depth = $md]\n",$dt,$depth); $firstgood = $lastgood = $e; undef($atbottom); undef($max_depth); $depth = 0;