--- a/export_LADCP.m
+++ b/export_LADCP.m
@@ -1,9 +1,9 @@
%======================================================================
-% E X P O R T _ L A D C P
+% E X P O R T _ L A D C P . M
% doc: Tue Sep 16 12:04:42 2008
-% dlm: Tue Sep 16 12:18:32 2008
+% dlm: Fri Nov 13 13:16:26 2009
% (c) 2008 A.M. Thurnherr
-% uE-Info: 30 56 NIL 0 0 72 2 2 4 NIL ofnI
+% uE-Info: 33 30 NIL 0 0 72 2 2 4 NIL ofnI
%======================================================================
%
% Synopsis: export list of LADCP stations to ANTS
@@ -19,6 +19,7 @@
% HISTORY:
% Sep 16, 2008: - created
+% Nov 13, 2009: - adapted to new LDEO_LADCP2ANTS
function [] = export_LADCP(stns)
@@ -31,7 +32,7 @@
elseif isfield(p,'magdev') % IfM processed
IfM_LADCP2ANTS(dr,p,bn);
else % LDEO processed
- LDEO_LADCP2ANTS(dr,p,bn);
+ LDEO_LADCP2ANTS(dr,f,p,bn);
end
else
disp(sprintf('skipping station %d',s));