% (R)oms (N)umerical (T)oolbox
%
% FUNCTION grdinfo = rnt_gridinfo(gridid)
%
% Loads the grid configuration for gridid
% To add new grid please edit this file.
% just copy an existing one and modify for
% your needs. It is simple.
%
% If you editing this file after using
% the Grid-pak scripts use the content
% of variable "nameit" for gridid.
%
% Example: CalCOFI application
%
%    grdinfo = rnt_gridinfo('calc')
%
% RNT - E. Di Lorenzo (edl@ucsd.edu)

function gridindo=rnt_gridinfo(gridid)
  
% initialize to defaults
  gridindo.id      = gridid;
  gridindo.name    = '';
  gridindo.grdfile = '';
  gridindo.N       = 20;
  gridindo.thetas  = 5;
  gridindo.thetab  = 0.4;
  gridindo.tcline  = 200;
  gridindo.cstfile = which('rgrd_WorldCstLinePacific.mat');
  
  if exist(gridid)== 2
     file = textread(gridid,'%s','delimiter','\n','whitespace','');
     for i=1:length(file)
       eval(file{i});
     end
%     feval(gridid);
%     load(gridid);
     return
  end
  
  
  switch gridid



  case 'nena'
    gridindo.id      = gridid;
    gridindo.name    = 'Nena 8km  ';
    gridindo.grdfile = 'roms_nena_grid_8g.nc';
    gridindo.N       = 30;
    gridindo.thetas  = 5;
    gridindo.thetab  = 0.4;
    gridindo.tcline  = 200;
    

  case 'mabgom4'
    gridindo.id      = gridid;
    gridindo.name    = 'mabgom4_hycom  ';
    gridindo.grdfile = 'mabgom4_hycom.nc';
    gridindo.N       = 36;
    gridindo.thetas  = 5;
    gridindo.thetab  = 0.4;
    gridindo.tcline  = 200;
    

    
    
    
    
  otherwise
    gridindo.id      = gridid;
    gridindo.name    = 'null';
    gridindo.grdfile = '/dev/null';
    gridindo.N       = 0;
    gridindo.thetas  = 0;
    gridindo.thetab  = 0;
    gridindo.tcline  = 0;
    disp([' RNT_GRIDINFO - ',gridid,' not configured']);
  end