/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_IO/rdmds.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/matlab_class/gcmfaces_IO/rdmds.m

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

revision 1.2 by gforget, Thu Sep 11 19:35:35 2014 UTC revision 1.3 by gforget, Thu Sep 11 19:38:24 2014 UTC
# Line 140  for iter=1:size(itrs,2); Line 140  for iter=1:size(itrs,2);
140   end   end
141    
142  % Figure out if there is a path in the filename  % Figure out if there is a path in the filename
143   NS=findstr('/',fname);   NS1=findstr('/',fname);
144   if size(NS)>0   NS2=findstr('\',fname);
145    Dir=fname(1:NS(end));   NS=max([NS1 NS2]);
146     if ~isempty(NS)
147      Dir=fname(1:NS);
148   else   else
149    Dir='./';    Dir=pwd;
150   end   end
151    
152  % Match name of all meta-files  % Match name of all meta-files

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22