netcdf/ncload.m

   1 function [varargout]=ncload(f)
   2 % ncload(f)
   3 % load all variables from a netcdf file f to base namespace
   4 % put their names in lowercase
   5 %
   6 % p=ncload(f)
   7 % create structure with values of arrays in file f
   8 %
   9 % Jan Mandel, September 2008/December 2008
  10
  11
  12 p=ncdump(f,'-q');  % get info on all variables
  13 switch nargout
  14     case 0
  15         for i=1:length(p),
  16             v=p(i).varname;
  17             assignin('caller',lower(v),ncread(f,v));
  18         end
  19     case 1
  20     a=[];
  21     for i=1:length(p),
  22             v=p(i).varname;
  23             a=setfield(a,lower(v),ncread(f,v));
  24     end
  25     varargout(1)={a};
  26 end
  27
  28 end