1 %====================================================================== |
1 %====================================================================== |
2 % U H _ L A D C P 2 A N T S . M |
2 % U H _ L A D C P 2 A N T S . M |
3 % doc: Sun Jan 22 15:19:00 2006 |
3 % doc: Sun Jan 22 15:19:00 2006 |
4 % dlm: Thu Aug 4 14:10:58 2011 |
4 % dlm: Tue Feb 21 13:59:44 2012 |
5 % (c) 2006 A.M. Thurnherr |
5 % (c) 2006 A.M. Thurnherr |
6 % uE-Info: 37 0 NIL 0 0 72 2 2 4 NIL ofnI |
6 % uE-Info: 22 75 NIL 0 0 72 2 2 4 NIL ofnI |
|
7 % uE-Info: 55 0 NIL 0 0 72 0 2 4 NIL ofnI |
7 %====================================================================== |
8 %====================================================================== |
8 % |
9 % |
9 % export LDEO LADCP output to ANTS file |
10 % export LDEO LADCP output to ANTS file |
10 % |
11 % |
11 % USAGE: UH_LADCP2ANTS(inFile,outBaseName) |
12 % USAGE: UH_LADCP2ANTS(inFile,outBaseName) |
15 % Jan 22, 2006: - created |
16 % Jan 22, 2006: - created |
16 % Nov 2, 2008: - BUG: v_var had not been exported because of typo |
17 % Nov 2, 2008: - BUG: v_var had not been exported because of typo |
17 % Oct 12, 2009: - adapted to new struct2ANTS |
18 % Oct 12, 2009: - adapted to new struct2ANTS |
18 % Aug 4, 2011: - added usage message on zero args |
19 % Aug 4, 2011: - added usage message on zero args |
19 % - updated output field names |
20 % - updated output field names |
|
21 % Feb 21, 2012: - manually merged different versions |
|
22 % - updated all output field names (dc/uc instead of dn/un) |
20 |
23 |
21 function [] = UH_LADCP2ANTS(ifn,obn) |
24 function [] = UH_LADCP2ANTS(ifn,obn) |
22 |
25 |
23 if nargin ~= 2 |
26 if nargin ~= 2 |
24 help UH_LADCP2ANTS |
27 help UH_LADCP2ANTS |
43 su_dn_i(dn_bad) = NaN; prof.dc_u = su_dn_i(good); |
46 su_dn_i(dn_bad) = NaN; prof.dc_u = su_dn_i(good); |
44 su_up_i(up_bad) = NaN; prof.uc_u = su_up_i(good); |
47 su_up_i(up_bad) = NaN; prof.uc_u = su_up_i(good); |
45 prof.v = sv_mn_i(good); |
48 prof.v = sv_mn_i(good); |
46 sv_dn_i(dn_bad) = NaN; prof.dc_v = sv_dn_i(good); |
49 sv_dn_i(dn_bad) = NaN; prof.dc_v = sv_dn_i(good); |
47 sv_up_i(up_bad) = NaN; prof.uc_v = sv_up_i(good); |
50 sv_up_i(up_bad) = NaN; prof.uc_v = sv_up_i(good); |
|
51 prof.w = sw_mn_i(good); |
|
52 sw_dn_i(dn_bad) = NaN; prof.dc_w = sw_dn_i(good); |
|
53 sw_up_i(up_bad) = NaN; prof.uc_w = sw_up_i(good); |
48 |
54 |
49 prof.u_var = su_var_mn_i(good); |
55 prof.u_var = su_var_mn_i(good); |
50 su_var_dn_i(dn_bad) = NaN; prof.dc_u_var = su_var_dn_i(good); |
56 su_var_dn_i(dn_bad) = NaN; prof.dc_u_var = su_var_dn_i(good); |
51 su_var_up_i(up_bad) = NaN; prof.uc_u_var = su_var_up_i(good); |
57 su_var_up_i(up_bad) = NaN; prof.uc_u_var = su_var_up_i(good); |
52 prof.v_var = sv_var_mn_i(good); |
58 prof.v_var = sv_var_mn_i(good); |
53 sv_var_dn_i(dn_bad) = NaN; prof.dc_v_var = sv_var_dn_i(good); |
59 sv_var_dn_i(dn_bad) = NaN; prof.dc_v_var = sv_var_dn_i(good); |
54 sv_var_up_i(up_bad) = NaN; prof.uc_v_var = sv_var_up_i(good); |
60 sv_var_up_i(up_bad) = NaN; prof.uc_v_var = sv_var_up_i(good); |
|
61 prof.w_var = sw_var_mn_i(good); |
|
62 sw_var_dn_i(dn_bad) = NaN; prof.dc_w_var = sw_var_dn_i(good); |
|
63 sw_var_up_i(up_bad) = NaN; prof.uc_w_var = sw_var_up_i(good); |
55 |
64 |
56 prof.nsamp = sn_mn_i(good); |
65 prof.nsamp = sn_mn_i(good); |
57 sn_dn_i(dn_bad) = NaN; prof.dc_nsamp = sn_dn_i(good); |
66 sn_dn_i(dn_bad) = NaN; prof.dc_nsamp = sn_dn_i(good); |
58 sn_up_i(up_bad) = NaN; prof.uc_nsamp = sn_up_i(good); |
67 sn_up_i(up_bad) = NaN; prof.uc_nsamp = sn_up_i(good); |
59 |
68 |
60 struct2ANTS(prof,ifn,sprintf('%s.prof',obn)); |
69 struct2ANTS(prof,ifn,sprintf('%s.prof',obn)); |
61 |
|