/[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.8 by gforget, Sun Jan 31 15:52:18 2016 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 48  if ~isfield(myenv,'MITprof_dir'); Line 46  if ~isfield(myenv,'MITprof_dir');
46      climDir='';          climDir='';    
47      tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep);      tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep);
48      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
49      tmpDir=fullfile(myenv.MITprof_dir,'..','MITprof_climatologies',filesep);      tmpDir=fullfile(myenv.MITprof_dir,'..','gcmfaces_climatologies',filesep);
50      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
51      tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep);      tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep);
52      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
53      tmpDir=fullfile('MITprof_climatologies',filesep);      tmpDir=fullfile('gcmfaces_climatologies',filesep);
54      if isdir(tmpDir); climDir=tmpDir; end;      if isdir(tmpDir); climDir=tmpDir; end;
55    
56      addpath(climDir);      addpath(climDir);
57      fil=which('sigma_T_mad_feb2013.bin');      fil=which('sigma_T_mad_feb2013.bin');
58      if isempty(fil);      if isempty(fil);
59       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');
60       fprintf('   It can be obtained as follows: \n');       fprintf('   It can be obtained as follows: \n');
61       fprintf('   wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n\n');       fprintf('   wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n\n');
62       fprintf('   mv mit.ecco-group.org/gforget/OCCAetcONv4GRID MITprof_climatologies \n\n');       fprintf('   mv mit.ecco-group.org/gforget/OCCAetcONv4GRID gcmfaces_climatologies \n\n');
63       climDir=input('');       climDir=input('');
64      end;      end;
65    
# Line 73  if ~isfield(myenv,'MITprof_dir'); Line 71  if ~isfield(myenv,'MITprof_dir');
71  end;  end;
72    
73  %send to workspace:  %send to workspace:
74  evalin('caller','global mygrid mitprofenv');  evalin('caller','global mygrid myenv');
75    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22