/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_global.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/matlab_class/gcmfaces_global.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by gforget, Fri Aug 5 22:00:03 2011 UTC revision 1.5 by gforget, Fri Mar 20 14:32:54 2015 UTC
# Line 13  function []=gcmfaces_global(varargin); Line 13  function []=gcmfaces_global(varargin);
13  %           - calls to this routine will eventually replace  %           - calls to this routine will eventually replace
14  %           both gcmfaces_path and 'global mygrid' calls.  %           both gcmfaces_path and 'global mygrid' calls.
15    
   
16  %set optional paramaters to default values  %set optional paramaters to default values
17  resetGrid=0; listVars={};  resetGrid=0; listVars={};
18  %set more optional paramaters to user defined values  %set more optional paramaters to user defined values
# Line 50  global myenv mygrid; Line 49  global myenv mygrid;
49  %take care of path:  %take care of path:
50  test0=which('convert2gcmfaces.m');  test0=which('convert2gcmfaces.m');
51  if isempty(test0);  if isempty(test0);
52      test0=which('gcmfaces_global.m'); ii=strfind(test0,'/');      test0=which('gcmfaces_global.m'); ii=strfind(test0,filesep);
53      mydir=test0(1:ii(end));      mydir=test0(1:ii(end));
54      %      %
55      eval(['addpath ' mydir ';']);      eval(['addpath ' mydir ';']);
# Line 64  if isempty(test0); Line 63  if isempty(test0);
63      eval(['addpath ' mydir 'ecco_v4/;']);      eval(['addpath ' mydir 'ecco_v4/;']);
64      eval(['addpath ' mydir 'sample_analysis/;']);      eval(['addpath ' mydir 'sample_analysis/;']);
65      eval(['addpath ' mydir 'sample_processing/;']);      eval(['addpath ' mydir 'sample_processing/;']);
66        eval(['addpath ' mydir 'gcmfaces_diags/;']);
67      eval(['addpath ' mydir 'gcmfaces_devel/;']);      eval(['addpath ' mydir 'gcmfaces_devel/;']);
68  end;  end;
69    
70  %environment variables:  %environment variables:
71  if isempty(myenv);  if isempty(myenv);
72      test0=which('gcmfaces_global.m'); ii=strfind(test0,'/');      test0=which('gcmfaces_global.m'); ii=strfind(test0,filesep);
73      myenv.gcmfaces_dir=test0(1:ii(end));      myenv.gcmfaces_dir=test0(1:ii(end));
74      myenv.verbose=0;      myenv.verbose=0;
75      myenv.lessplot=0;      myenv.lessplot=0;
76      myenv.lesstest=0;      myenv.lesstest=0;
77      myenv.useNativeMatlabNetcdf = ~isempty(which('netcdf.open'));      myenv.useNativeMatlabNetcdf = ~isempty(which('netcdf.open'));
78        myenv.issueWarnings=1;
79      %... check m_map and netcdf      %... check m_map and netcdf
80  end;  end;
81    
# Line 98  for ii=1:length(listVars); Line 99  for ii=1:length(listVars);
99      end;      end;
100  end;  end;
101    
102    %issue warning if mygrid is empty:
103    test0=isfield(mygrid,'XC');
104    if ~test0&myenv.issueWarnings;
105        warning('mygrid has not yet been loaded to memory. To use gcmfaces please use grid_load.m first.');
106    end;
107    
108  %send to workspace:  %send to workspace:
109  evalin('caller','global mygrid myenv');  evalin('caller','global mygrid myenv');
110    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22