/[MITgcm]/MITgcm_contrib/gael/profilesMatlabProcessing/profiles_misc/ncaddVar.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/profilesMatlabProcessing/profiles_misc/ncaddVar.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by roquet, Wed Apr 13 20:49:14 2011 UTC revision 1.3 by roquet, Wed Apr 20 20:26:58 2011 UTC
# Line 1  Line 1 
1  function ncaddVar(ncid,varname,xtype,dimlist);  function ncaddVar(ncid,varname,xtype,dimlist);
2  % add a variable in an existing netcdf file.  % function ncaddVar(ncid,varname,xtype,dimlist);
3    %   add a variable in an existing netcdf file.
4    
5  global useNativeMatlabNetcdf;  global useNativeMatlabNetcdf;
6  if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;  if isempty(useNativeMatlabNetcdf); useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); end;
7    
8  if useNativeMatlabNetcdf;  if useNativeMatlabNetcdf;
9      if isempty(dimlist), error('nddefVar error: no dimensions allocated'); end      if isempty(dimlist), error('ncaddVar error: no dimension allocated'); end
10      iDim=[];      iDim=[];
11      for ii=1:length(dimlist),      for ii=1:length(dimlist),
12          iDim(ii)=netcdf.inqDimID(ncid,dimlist{ii});          iDim(ii)=netcdf.inqDimID(ncid,dimlist{ii});
# Line 24  else;%try to use old mex stuff Line 25  else;%try to use old mex stuff
25          case 3,          case 3,
26              sprintf('ncid{''%s''}=nc%s(''%s'',''%s'',''%s'');',varname,xtype,dimlist{1},dimlist{2},dimlist{3});              sprintf('ncid{''%s''}=nc%s(''%s'',''%s'',''%s'');',varname,xtype,dimlist{1},dimlist{2},dimlist{3});
27          otherwise          otherwise
28              error('ncdefVar: number of dimension > 3');              error('ncaddVar: number of dimension > 3');
29      end      end
30  end;  end;
31    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22