LDEO_LADCP2ANTS.m
changeset 1 53bedd427ca6
parent 0 40938dd7a1f1
child 9 79a432124b57
child 10 e7f16c6e18db
--- a/LDEO_LADCP2ANTS.m
+++ b/LDEO_LADCP2ANTS.m
@@ -1,14 +1,14 @@
 %======================================================================
 %                    L D E O _ L A D C P 2 A N T S . M 
 %                    doc: Sun Jan 22 15:19:00 2006
-%                    dlm: Thu Apr 23 21:49:36 2009
+%                    dlm: Mon Oct 12 22:47:23 2009
 %                    (c) 2006 A.M. Thurnherr
-%                    uE-Info: 154 39 NIL 0 0 72 2 2 4 NIL ofnI
+%                    uE-Info: 155 47 NIL 0 0 72 2 2 4 NIL ofnI
 %======================================================================
 %
 % export LDEO LADCP output to ANTS file
 %
-% USAGE: LDEO_LADCP2ANTS(dr,p,outBaseName)
+% USAGE: LDEO_LADCP2ANTS(dr,f,p,outBaseName)
 %
 
 % HISTORY:
@@ -21,8 +21,9 @@
 %  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
+%  Oct 12, 2009: - adapted to new struct2ANTS
 
-function [] = LDEO_LADCP2ANTS(dr,p,obn)
+function [] = LDEO_LADCP2ANTS(dr,f,p,obn)
 
 	%----------------------------------------------------------------------
 	% INVERSE SOLUTION
@@ -73,7 +74,7 @@
 	prof.temp  = dr.ctd_t;
 	prof.salin = dr.ctd_s;
 	
-	struct2ANTS(prof,sprintf('%s.prof',obn));
+	struct2ANTS(prof,sprintf('%s.mat',f.res),sprintf('%s.prof',obn));
 
 	%----------------------------------------------------------------------
 	% SADCP
@@ -103,7 +104,7 @@
 			SADCP.err	= dr.uerr_sadcp;
 		end
 		
-		struct2ANTS(SADCP,sprintf('%s.SADCP',obn));
+		struct2ANTS(SADCP,sprintf('%s.mat',f.res),sprintf('%s.SADCP',obn));
 		
 	end
 
@@ -129,7 +130,7 @@
 		BT.v		= dr.vbot;
 		BT.err		= dr.uerrbot;
 		
-		struct2ANTS(BT,sprintf('%s.BT',obn));
+		struct2ANTS(BT,sprintf('%s.mat',f.res),sprintf('%s.BT',obn));
 	end
 	
 	%----------------------------------------------------------------------
@@ -151,5 +152,5 @@
 		CTD.temp  = dr.ctd_t;
 		CTD.salin = dr.ctd_s;
 
-		struct2ANTS(CTD,sprintf('%s.CTD',obn));
+		struct2ANTS(CTD,sprintf('%s.mat',f.res),sprintf('%s.CTD',obn));
 	end