#======================================================================

#                    L I B W A T E R D E P T H . P L 

#                    doc: Mon Feb  7 16:06:56 2022

#                    dlm: Mon Feb  7 16:20:09 2022

#                    (c) 2022 A.M. Thurnherr

#                    uE-Info: 10 27 NIL 0 0 70 0 2 4 NIL ofnI

#======================================================================

# HISTORY:

#	Feb  7, 2022: - created

sub waterdepth(@)

{

	my($lon,$lat) = &antsFunUsage(2,"ff","lon, lat",@_);

	open(my $F, "-|", "waterdepth $lon $lat") || croak("waterdepth: $!\n");

	my($wd);

	chomp($wd = <$F>);

	croak("Cannot decode waterdepth output ($wd)\n")

		unless numberp($wd);

	close($F);

	return $wd;

}

1;