|
0
|
1 |
%======================================================================
|
|
|
2 |
% U H _ L A D C P 2 A N T S . M
|
|
|
3 |
% doc: Sun Jan 22 15:19:00 2006
|
|
1
|
4 |
% dlm: Mon Oct 12 22:57:17 2009
|
|
0
|
5 |
% (c) 2006 A.M. Thurnherr
|
|
1
|
6 |
% uE-Info: 53 24 NIL 0 0 72 0 2 4 NIL ofnI
|
|
0
|
7 |
%======================================================================
|
|
|
8 |
%
|
|
|
9 |
% export LDEO LADCP output to ANTS file
|
|
|
10 |
%
|
|
|
11 |
% USAGE: LADCP2ants(inFile,outBaseName)
|
|
|
12 |
%
|
|
|
13 |
|
|
|
14 |
% HISTORY:
|
|
|
15 |
% Jan 22, 2006: - created
|
|
|
16 |
% Nov 2, 2008: - BUG: v_var vas not exported because of typo
|
|
1
|
17 |
% Oct 12, 2009: - adapted to new struct2ANTS
|
|
0
|
18 |
|
|
|
19 |
function [] = LADCP2ANTS(ifn,obn)
|
|
|
20 |
|
|
|
21 |
eval(sprintf('load %s',ifn));
|
|
|
22 |
|
|
|
23 |
prof.yrday = mean(txy_start_end(:,1));
|
|
|
24 |
|
|
|
25 |
prof.lon = mean(txy_start_end(find(isfinite(txy_start_end(:,2))),2));
|
|
|
26 |
prof.lat = mean(txy_start_end(find(isfinite(txy_start_end(:,3))),3));
|
|
|
27 |
|
|
|
28 |
good = find(sm_mn_i > 0);
|
|
|
29 |
prof.depth = d_samp(good);
|
|
|
30 |
prof.max_depth = max(prof.depth);
|
|
|
31 |
|
|
|
32 |
dn_bad = find(sm_dn_i == 0);
|
|
|
33 |
up_bad = find(sm_up_i == 0);
|
|
|
34 |
|
|
|
35 |
prof.u = su_mn_i(good);
|
|
|
36 |
su_dn_i(dn_bad) = NaN; prof.dn_u = su_dn_i(good);
|
|
|
37 |
su_up_i(up_bad) = NaN; prof.up_u = su_up_i(good);
|
|
|
38 |
prof.v = sv_mn_i(good);
|
|
|
39 |
sv_dn_i(dn_bad) = NaN; prof.dn_v = sv_dn_i(good);
|
|
|
40 |
sv_up_i(up_bad) = NaN; prof.up_v = sv_up_i(good);
|
|
|
41 |
|
|
|
42 |
prof.u_var = su_var_mn_i(good);
|
|
|
43 |
su_var_dn_i(dn_bad) = NaN; prof.dn_u_var = su_var_dn_i(good);
|
|
|
44 |
su_var_up_i(up_bad) = NaN; prof.up_u_var = su_var_up_i(good);
|
|
|
45 |
prof.v_var = sv_var_mn_i(good);
|
|
|
46 |
sv_var_dn_i(dn_bad) = NaN; prof.dn_v_var = sv_var_dn_i(good);
|
|
|
47 |
sv_var_up_i(up_bad) = NaN; prof.up_v_var = sv_var_up_i(good);
|
|
|
48 |
|
|
|
49 |
prof.samp = sn_mn_i(good);
|
|
|
50 |
sn_dn_i(dn_bad) = NaN; prof.dn_samp = sn_dn_i(good);
|
|
|
51 |
sn_up_i(up_bad) = NaN; prof.up_samp = sn_up_i(good);
|
|
|
52 |
|
|
1
|
53 |
struct2ANTS(prof,ifn,sprintf('%s.prof',obn));
|
|
0
|
54 |
|