MITgcm_contrib/gmaze_pv/pv_checkpath.m

%
% [] = PV_CHECKPATH()
%
% This function detects where the package gmaze_pv is installed
% (the upper level directory where the function volbet2iso
% is found) and ensure that sub-directories are in the path
%

function [] = pv_checkpath()

% Windows/Linux compatibility
global sla 
sla = '/';
if ispc , sla = '\'; end


% Determine the directory name where the package is installed:
w       = which('volbet2iso');
packdir = w(1:length(w)-12);


% Try to found needed subdirectories:
subdir     = 'subfct';
fullsubdir = strcat(packdir,sla,subdir);
if isempty(findstr(path,fullsubdir))
  addpath(fullsubdir)
end
1	gmaze	1.1	%
2			% [] = PV_CHECKPATH()
3			%
4			% This function detects where the package gmaze_pv is installed
5			% (the upper level directory where the function volbet2iso
6			% is found) and ensure that sub-directories are in the path
7			%
8
9			function [] = pv_checkpath()
10
11			% Windows/Linux compatibility
12			global sla
13			sla = '/';
14			if ispc , sla = '\'; end
15
16
17			% Determine the directory name where the package is installed:
18			w = which('volbet2iso');
19			packdir = w(1:length(w)-12);
20
21
22			% Try to found needed subdirectories:
23			subdir = 'subfct';
24			fullsubdir = strcat(packdir,sla,subdir);
25			if isempty(findstr(path,fullsubdir))
26			addpath(fullsubdir)
27			end