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:
global mitprofenv;

%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 isempty(mitprofenv);
    test0=which('MITprof_global.m'); ii=strfind(test0,filesep);
    mitprofenv.MITprof_dir=test0(1:ii(end));
    mitprofenv.verbose=0;
    mitprofenv.lessplot=0;
    mitprofenv.lesstest=0;
    mitprofenv.useNativeMatlabNetcdf = ~isempty(which('netcdf.open'));
    %... check for gcmfaces
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			global mitprofenv;
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 isempty(mitprofenv);
30			test0=which('MITprof_global.m'); ii=strfind(test0,filesep);
31			mitprofenv.MITprof_dir=test0(1:ii(end));
32			mitprofenv.verbose=0;
33			mitprofenv.lessplot=0;
34			mitprofenv.lesstest=0;
35			mitprofenv.useNativeMatlabNetcdf = ~isempty(which('netcdf.open'));
36			%... check for gcmfaces
37			end;
38
39			%send to workspace:
40			evalin('caller','global mygrid mitprofenv');
41