/[MITgcm]/MITgcm_contrib/gael/profilesMatlabProcessing/MITprof_global.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/profilesMatlabProcessing/MITprof_global.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by gforget, Mon Jul 28 19:34:16 2014 UTC revision 1.6 by gforget, Sun Jan 17 19:19:15 2016 UTC
# Line 7  function []=MITprof_global(varargin); Line 7  function []=MITprof_global(varargin);
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');
# Line 26  if isempty(test0); Line 26  if isempty(test0);
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;      %
33      mitprofenv.lessplot=0;      gridDir='';
34      mitprofenv.lesstest=0;      tmpDir=fullfile(myenv.gcmfaces_dir,'..','GRID',filesep);
35      mitprofenv.useNativeMatlabNetcdf = ~isempty(which('netcdf.open'));      if isdir(tmpDir); gridDir=tmpDir; end;
36      %... check for gcmfaces      tmpDir=fullfile(myenv.gcmfaces_dir,'..','nctiles_grid',filesep);
37        if isdir(tmpDir); gridDir=tmpDir; end;
38        if isdir('GRID/'); gridDir='GRID/'; end;
39        if isdir('nctiles_grid/'); gridDir='nctiles_grid/'; end;
40    
41        if isempty(gridDir); error('could not find grid'); end;
42        addpath(gridDir);
43        fil=which('GRID.0001.nc');
44        if isempty(fil); fil=which('XC.meta'); end;
45        if isempty(fil); error('could not find grid'); end;
46        myenv.MITprof_griddir=[fileparts(fil) filesep];
47        %
48        climDir='';    
49        tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep);
50        if isdir(tmpDir); climDir=tmpDir; end;
51        tmpDir=fullfile(myenv.MITprof_dir,'..','MITprof_climatologies',filesep);
52        if isdir(tmpDir); climDir=tmpDir; end;
53        tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep);
54        if isdir(tmpDir); climDir=tmpDir; end;
55        tmpDir=fullfile('MITprof_climatologies',filesep);
56        if isdir(tmpDir); climDir=tmpDir; end;
57    
58        addpath(climDir);
59        fil=which('sigma_T_mad_feb2013.bin');
60        if isempty(fil);
61         fprintf('\n please indicate the climatologies directory (e.g., ''MITprof_climatologies/'') \n\n');
62         fprintf('   It can be obtained as follows: \n');
63         fprintf('   wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n\n');
64         fprintf('   mv mit.ecco-group.org/gforget/OCCAetcONv4GRID MITprof_climatologies \n\n');
65         climDir=input('');
66        end;
67    
68        addpath(climDir);
69        fil=which('sigma_T_mad_feb2013.bin');
70        if isempty(fil); error('could not find sigma_T_mad_feb2013.bin'); end;
71        myenv.MITprof_climdir=[fileparts(fil) filesep];
72    
73  end;  end;
74    
75  %send to workspace:  %send to workspace:
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22