#======================================================================
#                    M E R G E C T D + L A D C P . T I M E M A T C H I N G P R O B L E M S 
#                    doc: Sun May 23 11:43:53 2010
#                    dlm: Sat Jun  5 12:09:43 2010
#                    (c) 2010 A.M. Thurnherr
#                    uE-Info: 23 22 NIL 0 0 72 0 2 4 NIL ofnI
#======================================================================

$sumCdt = $NCdt = $trgSumCdt = 0;										# init stuff

sub detectTimeMatchingProblems($$$$)
{

	local($ens,$depth,$otimoff,$timoff) = @_;
	local($adtimoff) = $otimoff - $timoff;

	warning("WARNING: Jump in CTD time offset at %dm (#$ens, %.1fs, %d CTD scans)",
				$depth,$adtimoff,abs($adtimoff/$opt_z))
		if (abs($adtimoff) >= 1);

	if ($depth > 30) {
		warning("WARNING: Jump in CTD time offset at %dm (#$ens, %.1fs, %d CTD scans)",
				$depth,$adtimoff,abs($adtimoff/$opt_z))
			if ($adtimoff >= 0.1);
		$sumCdt += $adtimoff;
		$trgSumCdt += 0.02;
		$NCdt++;
		if ($NCtd > 10) {
			if ($sumCdt >= 5.0*$trgSumCdt) {
				croak("$0: bad time match\n");
			} elsif ($sumCdt >= 1.5*$trgSumCdt && !$warned) {
				warning("WARNING: dodgy time match at ens #$ens --- mean absolute time-offset jigger is %g",$sumCdt/$NCdt);
			}
		}
	}
}

1;