/[MITgcm]/MITgcm_contrib/gmaze_pv/pv_checkpath.m
ViewVC logotype

Diff of /MITgcm_contrib/gmaze_pv/pv_checkpath.m

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

revision 1.1 by gmaze, Fri Jun 16 21:12:20 2006 UTC revision 1.2 by gmaze, Fri Jun 16 21:28:39 2006 UTC
# Line 20  packdir = w(1:length(w)-12); Line 20  packdir = w(1:length(w)-12);
20    
21    
22  % Try to found needed subdirectories:  % Try to found needed subdirectories:
23  subdir     = 'subfct';  
24  fullsubdir = strcat(packdir,sla,subdir);  subdir     = struct('name',{'subfct','test'});
25  if isempty(findstr(path,fullsubdir))  
26    addpath(fullsubdir)  for id = 1 : size(subdir(:),1)
27  end    subdirname = subdir(id).name;
28      fullsubdir = strcat(packdir,sla,subdirname);
29      if isempty(findstr(path,fullsubdir))
30        addpath(fullsubdir)
31      end %if
32    end %for
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22