1 %====================================================================== |
1 %====================================================================== |
2 % L D E O _ L A D C P 2 A N T S . M |
2 % L D E O _ 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: Mon Oct 12 22:47:23 2009 |
4 % dlm: Mon Jun 24 10:37:03 2013 |
5 % (c) 2006 A.M. Thurnherr |
5 % (c) 2006 A.M. Thurnherr |
6 % uE-Info: 155 47 NIL 0 0 72 2 2 4 NIL ofnI |
6 % uE-Info: 30 40 NIL 0 0 72 2 2 4 NIL ofnI |
7 %====================================================================== |
7 %====================================================================== |
8 % |
8 % |
9 % export LDEO LADCP output to ANTS file |
9 % export LDEO LADCP output to ANTS file |
10 % |
10 % |
11 % USAGE: LDEO_LADCP2ANTS(dr,f,p,outBaseName) |
11 % USAGE: LDEO_LADCP2ANTS(dr,f,p,ps,outBaseName) |
12 % |
12 % |
13 |
13 |
14 % HISTORY: |
14 % HISTORY: |
15 % Jan 22, 2006: - created |
15 % Jan 22, 2006: - created |
16 % Feb 4, 2006: - added BT & SADCP profiles |
16 % Feb 4, 2006: - added BT & SADCP profiles |
20 % Aug 21, 2006: - added additional lat/lon output |
20 % Aug 21, 2006: - added additional lat/lon output |
21 % Nov 9, 2006: - added additional time output (requiring p input) |
21 % Nov 9, 2006: - added additional time output (requiring p input) |
22 % Jul 17, 2008: - added cruise, software, magdecl, procdir info |
22 % Jul 17, 2008: - added cruise, software, magdecl, procdir info |
23 % Apr 23, 2009: - added globarl var EXPORT_CTD_DATA |
23 % Apr 23, 2009: - added globarl var EXPORT_CTD_DATA |
24 % Oct 12, 2009: - adapted to new struct2ANTS |
24 % Oct 12, 2009: - adapted to new struct2ANTS |
|
25 % Mar 18, 2013: - added support for global STRUCT2ANTS.verb |
|
26 % Jun 24, 2013: - added blen, nbin, blnk, dist to output (DL/UL separately); V10 |
|
27 % - added %depth_resolution %ADCP_superens_dz to output, requiring ps as |
|
28 % additional input |
25 |
29 |
26 function [] = LDEO_LADCP2ANTS(dr,f,p,obn) |
30 function [] = LDEO_LADCP2ANTS(dr,f,p,ps,obn) |
|
31 |
|
32 global STRUCT2ANTS; % suppress diagnostic messages |
|
33 STRUCT2ANTS.verb = 0; |
27 |
34 |
28 %---------------------------------------------------------------------- |
35 %---------------------------------------------------------------------- |
29 % INVERSE SOLUTION |
36 % INVERSE SOLUTION |
30 %---------------------------------------------------------------------- |
37 %---------------------------------------------------------------------- |
31 |
38 |
32 prof.name = dr.name; |
39 prof.name = dr.name; |
33 prof.cruise = p.cruise_id; |
40 prof.cruise = p.cruise_id; |
34 prof.software = p.software; |
41 prof.software = p.software; |
35 prof.magdecl = p.drot; |
42 prof.magdecl = p.drot; |
36 prof.procdir = pwd; |
43 prof.procdir = pwd; |
|
44 |
|
45 prof.DL_bin_length = p.blen_d; |
|
46 prof.DL_bins = p.nbin_d; |
|
47 prof.DL_blanking = p.blnk_d; |
|
48 prof.DL_bin1_dist = p.dist_d; |
|
49 |
|
50 if isfield(p,'nbin_u') |
|
51 prof.UL_bin_length = p.blen_u; |
|
52 prof.UL_bins = p.nbin_u; |
|
53 prof.UL_blanking = p.blnk_u; |
|
54 prof.UL_bin1_dist = p.dist_u; |
|
55 end |
|
56 |
|
57 prof.ADCP_superens_dz = p.avdz; |
|
58 prof.depth_resolution = ps.dz; |
37 |
59 |
38 prof.start_date = sprintf('%d/%02d/%02d',p.time_start(1),p.time_start(2),p.time_start(3)); |
60 prof.start_date = sprintf('%d/%02d/%02d',p.time_start(1),p.time_start(2),p.time_start(3)); |
39 prof.start_time = sprintf('%02d:%02d:%02d',p.time_start(4),p.time_start(5),p.time_start(6)); |
61 prof.start_time = sprintf('%02d:%02d:%02d',p.time_start(4),p.time_start(5),p.time_start(6)); |
40 |
62 |
41 prof.end_date = sprintf('%d/%02d/%02d',p.time_end(1),p.time_end(2),p.time_end(3)); |
63 prof.end_date = sprintf('%d/%02d/%02d',p.time_end(1),p.time_end(2),p.time_end(3)); |