gael/profilesMatlabProcessing/MITprof_global.m

function []=MITprof_global(varargin);
%object:    take care of path and global variables (mygrid and mitprofenv), 
%           and sends global variables to caller routine workspace
%notes:     - in any call, if this has not yet been done, 
%           this routine also adds MITprof subdirectories 
%           to the matlab path, and it defines mitprofenv.
%           - this routine replaces MITprof_path

%get/define global variables:
gcmfaces_global;

%take care of path:
test0=which('MITprof_load.m');
if isempty(test0);
    test0=which('MITprof_global.m'); ii=strfind(test0,filesep);
    mydir=test0(1:ii(end));
    %
    addpath(fullfile(mydir));
    addpath(fullfile(mydir,'profiles_process_main_v2'));
    addpath(fullfile(mydir,'profiles_IO_v2'));
    addpath(fullfile(mydir,'profiles_IO_external'));
    addpath(fullfile(mydir,'profiles_misc'));
    addpath(fullfile(mydir,'profiles_stats'));
    addpath(fullfile(mydir,'ecco_v4'));
    addpath(fullfile(mydir,'profiles_devel'));
end;

%environment variables:
if ~isfield(myenv,'MITprof_dir');
    test0=which('MITprof_global.m'); ii=strfind(test0,filesep);
    myenv.MITprof_dir=test0(1:ii(end));
end;

%send to workspace:
evalin('caller','global mygrid mitprofenv');

1	function []=MITprof_global(varargin);
2	%object: take care of path and global variables (mygrid and mitprofenv),
3	% and sends global variables to caller routine workspace
4	%notes: - in any call, if this has not yet been done,
5	% this routine also adds MITprof subdirectories
6	% to the matlab path, and it defines mitprofenv.
7	% - this routine replaces MITprof_path
8
9	%get/define global variables:
10	gcmfaces_global;
11
12	%take care of path:
13	test0=which('MITprof_load.m');
14	if isempty(test0);
15	test0=which('MITprof_global.m'); ii=strfind(test0,filesep);
16	mydir=test0(1:ii(end));
17	%
18	addpath(fullfile(mydir));
19	addpath(fullfile(mydir,'profiles_process_main_v2'));
20	addpath(fullfile(mydir,'profiles_IO_v2'));
21	addpath(fullfile(mydir,'profiles_IO_external'));
22	addpath(fullfile(mydir,'profiles_misc'));
23	addpath(fullfile(mydir,'profiles_stats'));
24	addpath(fullfile(mydir,'ecco_v4'));
25	addpath(fullfile(mydir,'profiles_devel'));
26	end;
27
28	%environment variables:
29	if ~isfield(myenv,'MITprof_dir');
30	test0=which('MITprof_global.m'); ii=strfind(test0,filesep);
31	myenv.MITprof_dir=test0(1:ii(end));
32	end;
33
34	%send to workspace:
35	evalin('caller','global mygrid mitprofenv');
36