.
%======================================================================
% U H _ L A D C P 2 A N T S . M
% doc: Sun Jan 22 15:19:00 2006
% dlm: Tue Feb 21 13:59:44 2012
% (c) 2006 A.M. Thurnherr
% uE-Info: 22 75 NIL 0 0 72 2 2 4 NIL ofnI
% uE-Info: 55 0 NIL 0 0 72 0 2 4 NIL ofnI
%======================================================================
%
% export LDEO LADCP output to ANTS file
%
% USAGE: UH_LADCP2ANTS(inFile,outBaseName)
%
% HISTORY:
% Jan 22, 2006: - created
% Nov 2, 2008: - BUG: v_var had not been exported because of typo
% Oct 12, 2009: - adapted to new struct2ANTS
% Aug 4, 2011: - added usage message on zero args
% - updated output field names
% Feb 21, 2012: - manually merged different versions
% - updated all output field names (dc/uc instead of dn/un)
function [] = UH_LADCP2ANTS(ifn,obn)
if nargin ~= 2
help UH_LADCP2ANTS
return
end
eval(sprintf('load %s',ifn));
prof.dayno = mean(txy_start_end(:,1));
prof.lon = mean(txy_start_end(find(isfinite(txy_start_end(:,2))),2));
prof.lat = mean(txy_start_end(find(isfinite(txy_start_end(:,3))),3));
good = find(sm_mn_i > 0);
prof.depth = d_samp(good);
prof.max_depth = max(prof.depth);
dn_bad = find(sm_dn_i == 0);
up_bad = find(sm_up_i == 0);
prof.u = su_mn_i(good);
su_dn_i(dn_bad) = NaN; prof.dc_u = su_dn_i(good);
su_up_i(up_bad) = NaN; prof.uc_u = su_up_i(good);
prof.v = sv_mn_i(good);
sv_dn_i(dn_bad) = NaN; prof.dc_v = sv_dn_i(good);
sv_up_i(up_bad) = NaN; prof.uc_v = sv_up_i(good);
prof.w = sw_mn_i(good);
sw_dn_i(dn_bad) = NaN; prof.dc_w = sw_dn_i(good);
sw_up_i(up_bad) = NaN; prof.uc_w = sw_up_i(good);
prof.u_var = su_var_mn_i(good);
su_var_dn_i(dn_bad) = NaN; prof.dc_u_var = su_var_dn_i(good);
su_var_up_i(up_bad) = NaN; prof.uc_u_var = su_var_up_i(good);
prof.v_var = sv_var_mn_i(good);
sv_var_dn_i(dn_bad) = NaN; prof.dc_v_var = sv_var_dn_i(good);
sv_var_up_i(up_bad) = NaN; prof.uc_v_var = sv_var_up_i(good);
prof.w_var = sw_var_mn_i(good);
sw_var_dn_i(dn_bad) = NaN; prof.dc_w_var = sw_var_dn_i(good);
sw_var_up_i(up_bad) = NaN; prof.uc_w_var = sw_var_up_i(good);
prof.nsamp = sn_mn_i(good);
sn_dn_i(dn_bad) = NaN; prof.dc_nsamp = sn_dn_i(good);
sn_up_i(up_bad) = NaN; prof.uc_nsamp = sn_up_i(good);
struct2ANTS(prof,ifn,sprintf('%s.prof',obn));