Documentation of define_globals

Global Index (short | long) | Local contents | Local Index (short | long)

Help text

 
 
 set graphics defaults

Cross-Reference Information

Listing of script define_globals

  global EDITOR
  global FRAME FRAME_MAX FRAME_MIN

  if strcmp(getenv('USER'),'lau');
    set(0,'DefaultTextFontName','Times');
    set(0,'DefaultTextFontSize',10);
    set(0,'DefaultAxesFontName','Times');
    set(0,'DefaultAxesFontSize',8);
    set(0,'DefaultAxesBox','on');
    set(0,'DefaultSurfaceEdgeColor','none');
    set(0,'DefaultSurfaceFaceColor','interp');
%   orient landscape
    orient_fig('tall');

    EDITOR = 'vi';
    if isempty(FRAME); FRAME=[120 270 -30 40]; end;
  end

  %--------------------------------------------------------------------

  DEFINED_GLOBALS=1;

  global CURRENT_SUBPLOT ROW_WISE
  if isempty(CURRENT_SUBPLOT); CURRENT_SUBPLOT=[1 1 1]; end
  if isempty(ROW_WISE); ROW_WISE=[1 0.03 0.03 0.94]; end;

  global CYCLIC_X CYCLIC_Y
  if isempty(CYCLIC_X); CYCLIC_X=0; end;
  if isempty(CYCLIC_Y); CYCLIC_Y=-1; end;
% CYCLIC_X is the WRAP parameter used in xtrct_xpnd_v
%   should set to 0 for default cyclic boundary, -1 for no wrap
%   around or other values as specified in XTRCT_XPND_V

  global COASTTYPE COASTGRID 
  if isempty(COASTTYPE); COASTTYPE ='-k'; end
%  if exist('COASTTYPE')~=1; COASTTYPE ='-k'; end
% if exist('COASTTYPE')~=1; COASTTYPE =''; end
% if exist('COASTGRID')~=1; COASTGRID =':b'; end
%  if exist('COASTGRID')~=1; COASTGRID =''; end
  if isempty(COASTGRID); COASTGRID =''; end

   global x_coasts x_continents x_islands x_lakes
   global y_coasts y_continents y_islands y_lakes
  if isempty(x_coasts);
    load coasts_xy.mat;
  end

  global DRAWCOASTS SOLID_COASTS SKIP_GRID coastn coastx2 coasty
  global USE_LANDMASK
  if isempty(coastn); load coasts.mat; end;
  if isempty(DRAWCOASTS); DRAWCOASTS=1; end;
  if isempty(SOLID_COASTS); SOLID_COASTS=1; end;
  if isempty(SKIP_GRID); SKIP_GRID=1; end
  if isempty(USE_LANDMASK); USE_LANDMASK=0; end

  global COASTWIDTH GRDX_SPACING GRDY_SPACING
  if isempty(COASTWIDTH); COASTWIDTH=1; end
  if isempty(GRDX_SPACING); GRDX_SPACING=30; end
  if isempty(GRDY_SPACING); GRDY_SPACING=15; end

  global CONTOURWIDTH QUIVERWIDTH MARKERSIZE
  if isempty(CONTOURWIDTH); CONTOURWIDTH=0.2; end;
  if isempty(QUIVERWIDTH); QUIVERWIDTH=0.3; end;
  if isempty(MARKERSIZE); MAKERSIZE=4; end;

  global PRINTER SAVE_PS
  if isempty(PRINTER); PRINTER=getenv('PRINTER'); end
% if isempty(SAVE_PS); SAVE_PS=0; end;

  global POLAR_MAP POLAR_LAT
  if isempty(POLAR_MAP); POLAR_MAP=0; end;
  if isempty(POLAR_LAT); POLAR_LAT=0; end;
  % POLAR_MAP=1,-1 for northern and southern Hemispheres
  
  global CNTR_LABEL CNTR_OFFSET CNTR_SCALING
  if isempty(CNTR_LABEL); CNTR_LABEL=0; end;
  if isempty(CNTR_OFFSET); CNTR_OFFSET=0; end;
  if isempty(CNTR_SCALING); CNTR_SCALING=1; end;

  global USE_FILL SHADE_OFF SHADE_PAR AUTO_SHADE
  if isempty(USE_FILL); USE_FILL=250; end
  if isempty(SHADE_OFF); SHADE_OFF=1; end;
  if isempty(AUTO_SHADE); AUTO_SHADE=0; end;

  global UNDEFINED NEAR_ZERO
  if isempty(UNDEFINED); UNDEFINED=-9.87e-20; end;
  if isempty(NEAR_ZERO); NEAR_ZERO=1.e-30; end;

  global PAPERCOPY POSTSCRIPT PUBLISH
% if isempty(PAPERCOPY); PAPERCOPY=1; end;
% if isempty(POSTSCRIPT); POSTSCRIPT=0; end;
  if isempty(PUBLISH); PUBLISH=0; end;

  global WAVENUMBER GFDL ECMWF LATITUDE_WTS N20_UP
  if isempty(WAVENUMBER); WAVENUMBER=30; end;
  if isempty(GFDL); GFDL=1; end;
  if isempty(ECMWF); ECMWF=0; end;
  if isempty(N20_UP); N20_UP=0; end;

  global RADUS RADIAN DEGREE
  if isempty(RADUS); RADUS=6375000; end
  if isempty(RADIAN); RADIAN=pi / 180; end
  if isempty(DEGREE); DEGREE=180 / pi; end;

  %--------------------------------------------------------------------

  if strcmp(getenv('USER'),'lau');

%   define gcm x and y grid point coorindates for lau
%   side effect of gcm_axis : setting LATITUDE_WTS
    [ax,ay]=gcm_axis;
    if (N20_UP); LATITUDE_WTS(17:24)=zeros(1,8); end

%   bx and by are north hemisphere grids
    bx=ax; by=ay(0.5*length(ay)+1:length(ay));

%   defaults for nmc 445 points octagonal grid
    [index_nmc,grid_nmc]=nmc_grid(23,6);

  end