# HG changeset patch # User A.M. Thurnherr # Date 1385033153 0 # Node ID 21c72df92e2c2d05096e4d6ed29cf4b7d3c2fb83 # Parent 79a432124b5751891cf966be25acd77bc0056ebf# Parent e7f16c6e18dbe7a1657d016c448b2d5d63a9fb67 post US5 & merged with whoosher local copy diff --git a/LDEO_LADCP2ANTS.m b/LDEO_LADCP2ANTS.m --- a/LDEO_LADCP2ANTS.m +++ b/LDEO_LADCP2ANTS.m @@ -1,9 +1,9 @@ %====================================================================== % L D E O _ L A D C P 2 A N T S . M % doc: Sun Jan 22 15:19:00 2006 -% dlm: Mon Jun 24 10:37:03 2013 +% dlm: Thu Nov 21 11:25:26 2013 % (c) 2006 A.M. Thurnherr -% uE-Info: 30 40 NIL 0 0 72 2 2 4 NIL ofnI +% uE-Info: 59 0 NIL 0 0 72 2 2 4 NIL ofnI %====================================================================== % % export LDEO LADCP output to ANTS file @@ -14,51 +14,53 @@ % HISTORY: % Jan 22, 2006: - created % Feb 4, 2006: - added BT & SADCP profiles -% Feb 8, 2006: - made compatible with V7 +% Feb 8, 2006: - made compatible with ANTS V7 % Feb 26, 2006: - made ensemble_vel_err optional (not set on ps.shear = 2) % Apr 25, 2006: - suppress output of empty SADCP,BT files % Aug 21, 2006: - added additional lat/lon output % Nov 9, 2006: - added additional time output (requiring p input) % Jul 17, 2008: - added cruise, software, magdecl, procdir info -% Apr 23, 2009: - added globarl var EXPORT_CTD_DATA +% Apr 23, 2009: - added global var EXPORT_CTD_DATA % Oct 12, 2009: - adapted to new struct2ANTS % Mar 18, 2013: - added support for global STRUCT2ANTS.verb % Jun 24, 2013: - added blen, nbin, blnk, dist to output (DL/UL separately); V10 -% - added %depth_resolution %ADCP_superens_dz to output, requiring ps as -% additional input +% - added %depth_resolution %ADCP_superens_dz to output, requiring ps as +% additional input +% Nov 10, 2013: - added prof.dayNo function [] = LDEO_LADCP2ANTS(dr,f,p,ps,obn) - global STRUCT2ANTS; % suppress diagnostic messages - STRUCT2ANTS.verb = 0; + global STRUCT2ANTS; % suppress diagnostic messages + STRUCT2ANTS.verb = 0; - %---------------------------------------------------------------------- - % INVERSE SOLUTION - %---------------------------------------------------------------------- + %---------------------------------------------------------------------- + % INVERSE SOLUTION + %---------------------------------------------------------------------- - prof.name = dr.name; - prof.cruise = p.cruise_id; - prof.software = p.software; - prof.magdecl = p.drot; - prof.procdir = pwd; + prof.name = dr.name; + prof.cruise = p.cruise_id; + prof.software = p.software; + prof.magdecl = p.drot; + prof.procdir = pwd; - prof.DL_bin_length = p.blen_d; - prof.DL_bins = p.nbin_d; - prof.DL_blanking = p.blnk_d; - prof.DL_bin1_dist = p.dist_d; + prof.DL_bin_length = p.blen_d; + prof.DL_bins = p.nbin_d; + prof.DL_blanking = p.blnk_d; + prof.DL_bin1_dist = p.dist_d; - if isfield(p,'nbin_u') - prof.UL_bin_length = p.blen_u; - prof.UL_bins = p.nbin_u; - prof.UL_blanking = p.blnk_u; - prof.UL_bin1_dist = p.dist_u; - end + if isfield(p,'nbin_u') + prof.UL_bin_length = p.blen_u; + prof.UL_bins = p.nbin_u; + prof.UL_blanking = p.blnk_u; + prof.UL_bin1_dist = p.dist_u; + end - prof.ADCP_superens_dz = p.avdz; + prof.ADCP_superens_dz = p.avdz; prof.depth_resolution = ps.dz; prof.start_date = sprintf('%d/%02d/%02d',p.time_start(1),p.time_start(2),p.time_start(3)); prof.start_time = sprintf('%02d:%02d:%02d',p.time_start(4),p.time_start(5),p.time_start(6)); + prof.dayNo = datenum(p.time_start) - datenum(p.time_start(1),1,1) + 1; prof.end_date = sprintf('%d/%02d/%02d',p.time_end(1),p.time_end(2),p.time_end(3)); prof.end_time = sprintf('%02d:%02d:%02d',p.time_end(4),p.time_end(5),p.time_end(6));