function grd = gg(location)
  
if nargin == 0
  location = 'latte'; % default
end

switch location
  case 'njb'
    grd_file = '/home/arango/applications/NJB/Data/njb1_grid_d.nc';
    scoord = [5 0.4 50 30];
  case 'cblast'
    % grd_file = '/home/wilkin/roms/cblast/in/cblast_grid_5.nc';
    grd_file = '/home/lanerolle.new/CBLAST_summary/Inputs/cblast_grid.nc';
    scoord = [3 0.4 50 20];
  case 'eac'
    grd_file = '/home/wilkin/roms/eac/grid/eac_grid_8.nc';
    scoord = [5 0.4 50 30];
  case 'nena5'
    grd_file = '/home/wilkin/roms/nena/in/roms_nena_grid_5.nc';
    scoord = [5 0.4 50 30];
  case { 'nena6','nena'}
    grd_file = '/home/wilkin/roms/nena/in/roms_nena_grid_6.nc';
    scoord = [5 0.4 50 30];
  case 'neos'
    grd_file = '/home/paulg/roms/neos/in/roms_neos_grid_5.nc';
    scoord = [5 0.4 50 30];
  case 'latte'
    grd_file = '/home/paulg/roms2p1/grids/roms_latte_grid_3.nc';
    scoord = [5 0.4 50 30];
end

disp(' ')
disp([ 'Loading ROMS grd for application: ' location])
disp([ 'using grid file ' grd_file])
disp(' ')
grd = roms_get_grid(grd_file,scoord);