/[MITgcm]/MITgcm/utils/matlab/rdmds.m
ViewVC logotype

Diff of /MITgcm/utils/matlab/rdmds.m

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

revision 1.18 by jmc, Fri Dec 29 04:33:16 2006 UTC revision 1.19 by molod, Mon Jan 22 19:00:31 2007 UTC
# Line 177  if j > 0, %- to comment out this block: Line 177  if j > 0, %- to comment out this block:
177    elseif ind1 > 0,    elseif ind1 > 0,
178      Mj=M(ind1:ind2); ind=findstr(Mj,'['); Mj=Mj(1+ind:end);      Mj=M(ind1:ind2); ind=findstr(Mj,'['); Mj=Mj(1+ind:end);
179  %   add it-number from Mj to M2 (if different):  %   add it-number from Mj to M2 (if different):
180      if isempty(findstr(M2,Mj)), M2=[M2(1:end-1),strtrim(Mj)]; end  %   if isempty(findstr(M2,Mj)), M2=[M2(1:end-1),strtrim(Mj)]; end
181        if isempty(findstr(M2,Mj)), M2=[M2(1:end-1) Mj]; end
182    end    end
183   end   end
184  %  save modifications:  %  save modifications:
# Line 236  while keepgoing > 0, Line 237  while keepgoing > 0,
237  % Remove comments of form //  % Remove comments of form //
238    line=[line ' //']; ind=findstr(line,'//'); line=line(1:ind(1)-1);    line=[line ' //']; ind=findstr(line,'//'); line=line(1:ind(1)-1);
239  % Add to total string  % Add to total string
240    allstr=[allstr,strtrim(line),' '];    allstr=[allstr line];
241    % allstr=[allstr,strtrim(line),' ']
242   end   end
243  end  end
244    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22