function at_monterey(ndays)

if ~nargin
   ndays = 7;
end

web_img1
web_img2
%web_img3

m1_comparePrr2Hr
close all

at_gernot
close all

m_lookBeta('m1');
writegif(['d:\web\extern\bog\images\m1_beta.gif'])
close all

ids = {'m1'};
for i = 1:length(ids)
   id = ids{i};
   netcdfPath = ['\\tsunami.shore.mbari.org\oasis\' id '\netcdf\'];
   instNums = [2 4]; 
   for j = 1:length(instNums)
      instType = ['hr' num2str(instNums(j))]; % hr2 then hr4
      hrFile = getfname(fullfile(netcdfPath, [id '_' instType '_*.nc']));
      infile = netcdf(fullfile(netcdfPath, hrFile(1,:)));
      m_lookHr(infile);
      for k = 1:instNums(j)
         set(0,'CurrentFigure',k)
         writegif(['d:\web\extern\bog\images\' id '_' instType '_' num2str(k) '.gif'])
      end
      close all
      ncquit(infile)
   end
end

% m_lookHr2('m1');
% set(0,'CurrentFigure',1)
% writegif(['d:\web\extern\bog\images\m1_hr2Lu.gif'])
% set(0,'CurrentFigure',2)
% writegif(['d:\web\extern\bog\images\m1_hr2Ed.gif'])
% close all

ids = {'m1','m2'};
for i = 1:length(ids)
   id = ids{i};
   
   
   close all
   m_lookFluor(id)
   writegif(['d:\web\extern\bog\images\' id '_fluor.gif'])
   close all
   
   m_lookHs2(id)
   writegif(['d:\web\extern\bog\images\' id '_hs2.gif'])
   close all
   
   infile = netcdf(['\\tsunami.shore.mbari.org\oasis\' id '\netcdf\' id '_pco2.nc']);
   m_lookPco2(infile);
   ncquit(infile);
   set(0,'CurrentFigure',1)
   writegif(['d:\web\extern\bog\images\' id 'pco2_1.gif'])
   set(0,'CurrentFigure',2)
   writegif(['d:\web\extern\bog\images\' id 'pco2_2.gif'])
   set(0,'CurrentFigure',3)
   writegif(['d:\web\extern\bog\images\' id 'pco2_3.gif'])
   set(0,'CurrentFigure',4)
   writegif(['d:\web\extern\bog\images\' id 'pco2_4.gif'])
   close all
   
   % MDUC stuff
   netcdf_pco2(['\\tsunami.shore.mbari.org\oasis\' id], ['d:\web\extern\bog\netcdf\' id '_pco2.nc'], upper(id))
   
   netcdf_gps(['\\tsunami.shore.mbari.org\oasis\' id], ['d:\web\extern\bog\netcdf\' id '_gps.nc'], upper(id))
end