renomme le fichier

tsg_util/writeTsgData.m

+function [error] = tsg_writeTsgData( hTsgGUI, filename)
+% Function to write the TSG data. Should be a NetCDF file
+%
+% Input
+% -----
+% hTsgGUI ............ Handel to the main user interface
+% filename ........... Data filename
+%
+% Output
+% ------
+% error .............. 1: OK - -1 : an error occured
+%
+% The data are store using setappdata - Variable name : 'tsg_data'
+%
+% Function to be rewritten when the NetCDF format will be in use
+% Caution : replace the fill-value with NaN
+%$Id$
+
+% Open the file
+% -------------
+fid = fopen( filename, 'w' );
+
+error = -1;
+if fid ~= -1
+
+    % Get the data from the application GUI
+    % -------------------------------------
+    tsg = getappdata( hTsgGUI, 'tsg_data');
+    
+    [year, month, day, hour, min, sec] = datevec( tsg.TIME );
+    
+    tsg_data = [day month year hour min fix(sec) tsg.LATITUDE ...
+                tsg.LONGITUDE tsg.TEMP_TSG ...
+                tsg.PSAL tsg.PSAL_QC ...
+                tsg.PSAL_ADJ tsg.PSAL_ERR ...
+                ];
+
+    % Write the file
+    % -------------
+    fprintf(fid,...
+    '%02d/%02d/%04d %02d:%02d:%02d %11.6f %11.6f %6.3f %6.3f %1d %6.3f %6.3f\n',...
+     tsg_data');
+    
+    % Clear the Workspace
+    % -------------------
+    clear tsgdata
+    
+    % Close the file
+    % --------------
+    fclose( fid );
+    
+    % Everything OK
+    % -------------
+    error = 1;
+end