/[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.3 by gmaze, Mon Jul 10 15:09:01 2006 UTC
# Line 1  Line 1 
1  %  %
2  % [] = PV_CHECKPATH()  % [] = pv_checkpath()
3  %  %
4  % This function detects where the package gmaze_pv is installed  % This function detects where the package gmaze_pv is installed
5  % (the upper level directory where the function volbet2iso  % (the upper level directory where the function volbet2iso
# 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','visu'});
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.3
  ViewVC Help
Powered by ViewVC 1.1.22