| 7 |
% - this routine replaces MITprof_path |
% - this routine replaces MITprof_path |
| 8 |
|
|
| 9 |
%get/define global variables: |
%get/define global variables: |
| 10 |
global mitprofenv; |
gcmfaces_global; |
| 11 |
|
|
| 12 |
%take care of path: |
%take care of path: |
| 13 |
test0=which('MITprof_load.m'); |
test0=which('MITprof_load.m'); |
| 26 |
end; |
end; |
| 27 |
|
|
| 28 |
%environment variables: |
%environment variables: |
| 29 |
if isempty(mitprofenv); |
if ~isfield(myenv,'MITprof_dir'); |
| 30 |
test0=which('MITprof_global.m'); ii=strfind(test0,filesep); |
test0=which('MITprof_global.m'); ii=strfind(test0,filesep); |
| 31 |
mitprofenv.MITprof_dir=test0(1:ii(end)); |
myenv.MITprof_dir=test0(1:ii(end)); |
| 32 |
mitprofenv.verbose=0; |
myenv.MITprof_griddir=fullfile(myenv.gcmfaces_dir,'..','GRID',filesep); |
| 33 |
mitprofenv.lessplot=0; |
myenv.MITprof_climdir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep); |
|
mitprofenv.lesstest=0; |
|
|
mitprofenv.useNativeMatlabNetcdf = ~isempty(which('netcdf.open')); |
|
|
%... check for gcmfaces |
|
| 34 |
end; |
end; |
| 35 |
|
|
| 36 |
%send to workspace: |
%send to workspace: |