%======================================================================

%                    E X P O R T _ L A D C P . M 

%                    doc: Tue Sep 16 12:04:42 2008

%                    dlm: Fri Nov 13 13:16:26 2009

%                    (c) 2008 A.M. Thurnherr

%                    uE-Info: 33 30 NIL 0 0 72 2 2 4 NIL ofnI

%======================================================================

%

% Synopsis: export list of LADCP stations to ANTS

%

% Usage: export_LADCP(stns)

%

% Notes:

%	- file format (LDEO, UH, IfM) determined automatically

%	- UH not yet implemented (different file names; no structures in mat files)

%	- 3-digit zero-padded station basename assumed

%	- non-existing stations are skipped

% HISTORY:

%	Sep 16, 2008: - created

%	Nov 13, 2009: - adapted to new LDEO_LADCP2ANTS

function [] = export_LADCP(stns)

for s = stns

	bn = sprintf('%03d',s);

	if exist([bn '.mat'],'file')

		load(bn);

		if exist('d_samp','var')	% UH processed

			error('UH file format not yet implemented');			

		elseif isfield(p,'magdev')	% IfM processed

			IfM_LADCP2ANTS(dr,p,bn);

		else						% LDEO processed

			LDEO_LADCP2ANTS(dr,f,p,bn);

		end

	else

		disp(sprintf('skipping station %d',s));

	end % if exist mat file

end % station loop