/[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.6 by gforget, Sun Jan 17 19:19:15 2016 UTC revision 1.10 by gforget, Mon Apr 2 17:49:21 2018 UTC
# Line 1  Line 1 
1  function []=MITprof_global(varargin);  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  % MITPROF_GLOBAL calls gcmfaces_global, adds MITprof paths, adds
4  %notes:     - in any call, if this has not yet been done,  %    defines MITprof_climdir and MITprof_griddir in myenv, and
5  %           this routine also adds MITprof subdirectories  %    adds myenv (global variable) to caller routine workspace
 %           to the matlab path, and it defines mitprofenv.  
 %           - this routine replaces MITprof_path  
6    
7  %get/define global variables:  %get/define global variables:
8  gcmfaces_global;  gcmfaces_global;
9    
10    warning(sprintf(['This version of MITprof, from an old CVS server, is now \n' ...
11        ' considered deprecated. Future devopment will proceed, instead, \n' ...
12        ' via GitHub. For up to date documentation, please refer to \n' ...
13        ' http://gcmfaces.readthedocs.io/en/latest/']));
14    
15  %take care of path:  %take care of path:
16  test0=which('MITprof_load.m');  test0=which('MITprof_load.m');
17  if isempty(test0);  if isempty(test0);
# Line 38  if ~isfield(myenv,'MITprof_dir'); Line 41  if ~isfield(myenv,'MITprof_dir');
41      if isdir('GRID/'); gridDir='GRID/'; end;      if isdir('GRID/'); gridDir='GRID/'; end;
42      if isdir('nctiles_grid/'); gridDir='nctiles_grid/'; end;      if isdir('nctiles_grid/'); gridDir='nctiles_grid/'; end;
43    
44      if isempty(gridDir); error('could not find grid'); end;      if isempty(gridDir);
45         fprintf('\n please indicate the ECCO v4 grid directory (e.g., ''nctiles_grid/'') \n\n');
46         fprintf('   It can be obtained as follows: \n');
47         fprintf('   wget --recursive ftp://mit.ecco-group.org/ecco_for_las/version_4/release2/nctiles_grid/ .\n');
48         fprintf('   mv mit.ecco-group.org/ecco_for_las/version_4/release2/nctiles_grid/ . \n\n');
49         gridDir=input('');
50        end;
51    
52      addpath(gridDir);      addpath(gridDir);
53      fil=which('GRID.0001.nc');      fil=which('GRID.0001.nc');
54      if isempty(fil); fil=which('XC.meta'); end;      if isempty(fil); fil=which('XC.meta'); end;
# Line 48  if ~isfield(myenv,'MITprof_dir'); Line 58  if ~isfield(myenv,'MITprof_dir');
58      climDir='';          climDir='';    
59      tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep);      tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep);
60      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
61      tmpDir=fullfile(myenv.MITprof_dir,'..','MITprof_climatologies',filesep);      tmpDir=fullfile(myenv.MITprof_dir,'..','gcmfaces_climatologies',filesep);
62      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
63      tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep);      tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep);
64      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
65      tmpDir=fullfile('MITprof_climatologies',filesep);      tmpDir=fullfile('gcmfaces_climatologies',filesep);
66      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
67    
68      addpath(climDir);      addpath(climDir);
69      fil=which('sigma_T_mad_feb2013.bin');      fil=which('sigma_T_mad_feb2013.bin');
70      if isempty(fil);      if isempty(fil);
71       fprintf('\n please indicate the climatologies directory (e.g., ''MITprof_climatologies/'') \n\n');       fprintf('\n please indicate the climatologies directory (e.g., ''gcmfaces_climatologies/'') \n\n');
72       fprintf('   It can be obtained as follows: \n');       fprintf('   It can be obtained as follows: \n');
73       fprintf('   wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n\n');       fprintf('   wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n');
74       fprintf('   mv mit.ecco-group.org/gforget/OCCAetcONv4GRID MITprof_climatologies \n\n');       fprintf('   mv mit.ecco-group.org/gforget/OCCAetcONv4GRID gcmfaces_climatologies \n\n');
75       climDir=input('');       climDir=input('');
76      end;      end;
77    
# Line 73  if ~isfield(myenv,'MITprof_dir'); Line 83  if ~isfield(myenv,'MITprof_dir');
83  end;  end;
84    
85  %send to workspace:  %send to workspace:
86  evalin('caller','global mygrid mitprofenv');  evalin('caller','global mygrid myenv');
87    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22