writeTsgData.m

function [error] = 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