/[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.9 by gforget, Thu Feb 23 18:26:14 2017 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;
# Line 38  if ~isfield(myenv,'MITprof_dir'); Line 36  if ~isfield(myenv,'MITprof_dir');
36      if isdir('GRID/'); gridDir='GRID/'; end;      if isdir('GRID/'); gridDir='GRID/'; end;
37      if isdir('nctiles_grid/'); gridDir='nctiles_grid/'; end;      if isdir('nctiles_grid/'); gridDir='nctiles_grid/'; end;
38    
39      if isempty(gridDir); error('could not find grid'); end;      if isempty(gridDir);
40         fprintf('\n please indicate the ECCO v4 grid directory (e.g., ''nctiles_grid/'') \n\n');
41         fprintf('   It can be obtained as follows: \n');
42         fprintf('   wget --recursive ftp://mit.ecco-group.org/ecco_for_las/version_4/release2/nctiles_grid/ .\n');
43         fprintf('   mv mit.ecco-group.org/ecco_for_las/version_4/release2/nctiles_grid/ . \n\n');
44         gridDir=input('');
45        end;
46    
47      addpath(gridDir);      addpath(gridDir);
48      fil=which('GRID.0001.nc');      fil=which('GRID.0001.nc');
49      if isempty(fil); fil=which('XC.meta'); end;      if isempty(fil); fil=which('XC.meta'); end;
# Line 48  if ~isfield(myenv,'MITprof_dir'); Line 53  if ~isfield(myenv,'MITprof_dir');
53      climDir='';          climDir='';    
54      tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep);      tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep);
55      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
56      tmpDir=fullfile(myenv.MITprof_dir,'..','MITprof_climatologies',filesep);      tmpDir=fullfile(myenv.MITprof_dir,'..','gcmfaces_climatologies',filesep);
57      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
58      tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep);      tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep);
59      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
60      tmpDir=fullfile('MITprof_climatologies',filesep);      tmpDir=fullfile('gcmfaces_climatologies',filesep);
61      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
62    
63      addpath(climDir);      addpath(climDir);
64      fil=which('sigma_T_mad_feb2013.bin');      fil=which('sigma_T_mad_feb2013.bin');
65      if isempty(fil);      if isempty(fil);
66       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');
67       fprintf('   It can be obtained as follows: \n');       fprintf('   It can be obtained as follows: \n');
68       fprintf('   wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n\n');       fprintf('   wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n');
69       fprintf('   mv mit.ecco-group.org/gforget/OCCAetcONv4GRID MITprof_climatologies \n\n');       fprintf('   mv mit.ecco-group.org/gforget/OCCAetcONv4GRID gcmfaces_climatologies \n\n');
70       climDir=input('');       climDir=input('');
71      end;      end;
72    
# Line 73  if ~isfield(myenv,'MITprof_dir'); Line 78  if ~isfield(myenv,'MITprof_dir');
78  end;  end;
79    
80  %send to workspace:  %send to workspace:
81  evalin('caller','global mygrid mitprofenv');  evalin('caller','global mygrid myenv');
82    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22