ncsave.m

MATLAB中读写、处理科学数据文件格式NETCDF的程序

function theResult = ncsave(theNetCDFFile, varargin)

% ncsave -- Save NetCDF variables.
%  ncsave('theNetCDFFile', 'var1', 'var2', ...) saves the
%   given variables in 'theNetCDFFile'.  The variables must
%   already have been defined in the file, and the output
%   data must be properly sized.  This routine does not
%   alter the structure of the file itself; only the
%   given variables are updated.  If no variables are
%   given, the caller's entire workspace is attempted.
%   No attributes are updated.
 
% Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 18-Aug-1997 10:19:05.

if nargin < 1, help(mfilename), return, end

result = [];
if nargout > 0, theResult = result; end

f = netcdf(theNetCDFFile, 'write');
if isempty(f), return, end

if length(varargin) < 1
   varargin = evalin('caller', 'who', '{}');
end

result = cell(1, length(varargin));
for i = 1:length(varargin)
   theName = varargin{i};
   if ~isstr(theName), theName = inputname(i+1); end
   result{i} = '';
   okay = 1;
   x = evalin('caller', theName, 'okay = 0; [];');
   if okay
      switch class(x)
      case {'char', 'double', 'uint8'}
         v = f{theName};
         if ~isempty(v) & prod(size(v)) == prod(size(x))
            v(:) = x;
            result{i} = theName;
         end
      otherwise
      end
   end
end

close(f)

if nargout > 0
   theResult = result;
else
   ncans(result)
end