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

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

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

revision 1.2 by roquet, Wed Apr 13 20:49:14 2011 UTC revision 1.3 by roquet, Wed Apr 13 22:56:19 2011 UTC
# Line 16  else;%try to use old mex stuff Line 16  else;%try to use old mex stuff
16      dimlist=fliplr(dimlist);      dimlist=fliplr(dimlist);
17      switch length(dimlist)      switch length(dimlist)
18          case 1,          case 1,
19              sprintf('ncid{''%s''}=nc%s(''%s'');',varname,xtype,dimlist{1});              eval(sprintf('ncid{''%s''}=nc%s(''%s'');',varname,xtype,dimlist{1}));
20          case 2,          case 2,
21              sprintf('ncid{''%s''}=nc%s(''%s'',''%s'');',varname,xtype,dimlist{1},dimlist{2});              eval(sprintf('ncid{''%s''}=nc%s(''%s'',''%s'');',varname,xtype,dimlist{1},dimlist{2}));
22          case 3,          case 3,
23              sprintf('ncid{''%s''}=nc%s(''%s'',''%s'',''%s'');',varname,xtype,dimlist{1},dimlist{2},dimlist{3});              eval(sprintf('ncid{''%s''}=nc%s(''%s'',''%s'',''%s'');',varname,xtype,dimlist{1},dimlist{2},dimlist{3}));
24          otherwise          otherwise
25              error('ncdefVar: number of dimension > 3');              error('ncdefVar: number of dimension > 3');
26      end      end
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22