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	gforget	1.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	gforget	1.2	gcmfaces_global;
11	gforget	1.1
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	gforget	1.2	if ~isfield(myenv,'MITprof_dir');
30	gforget	1.1	test0=which('MITprof_global.m'); ii=strfind(test0,filesep);
31	gforget	1.2	myenv.MITprof_dir=test0(1:ii(end));
32	gforget	1.1	end;
33
34			%send to workspace:
35			evalin('caller','global mygrid mitprofenv');
36