old mode 100644
new mode 100755
--- 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: Wed Oct 20 14:41:17 2010
+# dlm: Fri Dec 10 14:39:58 2010
# (c) 2003 A.M. Thurnherr
-# uE-Info: 35 84 NIL 0 0 72 2 2 4 NIL ofnI
+# uE-Info: 37 42 NIL 0 0 72 2 2 4 NIL ofnI
#======================================================================
# miscellaneous RDI-specific utilities
@@ -32,7 +32,9 @@
# are transferred to earth coords in mk_prof
# Sep 29, 2010: - BUG: previous change was wrong, as ref_lr_w does
# not overwrite velocities
-# Oct 20, 2010: - BUG: w is now not integrated any more across gaps longer than 5s
+# Oct 20, 2010: - BUG: w is now not integrated any more across gaps longer than 5s
+# Dec 8, 2010: - changed missing w warning to happen only if gap is longer than 15s
+# Dec 10, 2010: - beautified gap warning
use strict;
@@ -342,8 +344,8 @@
if ($dt < 5) {
$z += $dta->{ENSEMBLE}[$lastgood]->{W} * $dt; # integrate
$zErr += ($dta->{ENSEMBLE}[$lastgood]->{W_ERR} * $dt)**2;
- } else {
- print(STDERR "WARNING: gap (dt=$dt) --- w discarded\n");
+ } elsif ($dt > 15) {
+ printf(STDERR "WARNING: long-ish w gap (dt=%ds)\n",$dt);
}
$dta->{ENSEMBLE}[$e]->{DEPTH} = $z;