--- MITgcm_contrib/gael/profilesMatlabProcessing/MITprof_global.m 2016/01/17 16:00:21 1.5 +++ MITgcm_contrib/gael/profilesMatlabProcessing/MITprof_global.m 2016/01/31 15:52:18 1.8 @@ -1,10 +1,8 @@ function []=MITprof_global(varargin); -%object: take care of path and global variables (mygrid and mitprofenv), -% and sends global variables to caller routine workspace -%notes: - in any call, if this has not yet been done, -% this routine also adds MITprof subdirectories -% to the matlab path, and it defines mitprofenv. -% - this routine replaces MITprof_path +% +% MITPROF_GLOBAL calls gcmfaces_global, adds MITprof paths, adds +% defines MITprof_climdir and MITprof_griddir in myenv, and +% adds myenv (global variable) to caller routine workspace %get/define global variables: gcmfaces_global; @@ -48,21 +46,21 @@ climDir=''; tmpDir=fullfile(myenv.gcmfaces_dir,'sample_input','OCCAetcONv4GRID',filesep); if isdir(tmpDir); climDir=tmpDir; end; - tmpDir=fullfile(myenv.MITprof_dir,'..','MITprof_climatologies',filesep); + tmpDir=fullfile(myenv.MITprof_dir,'..','gcmfaces_climatologies',filesep); if isdir(tmpDir); climDir=tmpDir; end; tmpDir=fullfile('sample_input','OCCAetcONv4GRID',filesep); if isdir(tmpDir); climDir=tmpDir; end; - tmpDir=fullfile('MITprof_climatologies',filesep); + tmpDir=fullfile('gcmfaces_climatologies',filesep); if isdir(tmpDir); climDir=tmpDir; end; addpath(climDir); fil=which('sigma_T_mad_feb2013.bin'); if isempty(fil); - 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'); fprintf(' It can be obtained as follows: \n'); fprintf(' wget --recursive ftp://mit.ecco-group.org/gforget/OCCAetcONv4GRID .\n\n'); - fprintf(' mv mit.ecco-group.org/gforget/OCCAetcONv4GRID MITprof_climatologies \n\n'); - myenv.MITprof_climdir=input(''); + fprintf(' mv mit.ecco-group.org/gforget/OCCAetcONv4GRID gcmfaces_climatologies \n\n'); + climDir=input(''); end; addpath(climDir); @@ -73,5 +71,5 @@ end; %send to workspace: -evalin('caller','global mygrid mitprofenv'); +evalin('caller','global mygrid myenv');