/[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.2 by gforget, Mon Jul 28 21:29:41 2014 UTC revision 1.5 by gforget, Sun Jan 17 16:00:21 2016 UTC
# Line 29  end; Line 29  end;
29  if ~isfield(myenv,'MITprof_dir');  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      myenv.MITprof_dir=test0(1:ii(end));      myenv.MITprof_dir=test0(1:ii(end));
32        %
33        gridDir='';
34        tmpDir=fullfile(myenv.gcmfaces_dir,'..','GRID',filesep);
35        if isdir(tmpDir); gridDir=tmpDir; end;
36        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         myenv.MITprof_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.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22