function m_lookHr2(id, NumOfDays)

% Prompt for input if no input arguments are specified
if nargin < 2
   NumOfDays = 7;
end
colormapS = 'palette5';

YLim = [350 750];

% Set the path to the data file depending on what type of machine this function is run from
filePath = ['//tsunami.shore.mbari.org/oasis/' id '/netcdf/'];
fileList = getfname([filePath 'hr2*.nc']);
filename = deblank(fileList(1,:));

prop = readProperties('//tsunami.shore.mbari.org/oasis/cfg/mooring.properties');
lat = sscanf(getProperty(prop, [id '.latitude']), '%f');
lon = sscanf(getProperty(prop, [id '.longitude']), '%f');
if isempty(lat) | isempty(lon)
   loc = [];
else
   loc = getLocationString(lat, lon);
end

XLim = [now-NumOfDays now];

infile = netcdf([filePath filename]);

t = nctime(infile);

good = find(t >= now-NumOfDays);
t    = t(good);

Lu   = infile{'Lu_Wet'}(:);
Lu   = Lu(good, :);
Lu(find(Lu == infile{'Lu_Wet'}.missing_value(:))) = NaN;
wLu  = infile{'wavelength1'}(:);
zLu  = infile{'depth1'}(:);


Ed   = infile{'Ed_Wet'}(:);
Ed   = Ed(good, :);
Ed(find(Ed == infile{'Ed_Wet'}.missing_value(:))) = NaN;
wEd  = infile{'wavelength2'}(:);
zEd  = infile{'depth2'}(:);
ncquit(infile)

figure;
if length(t) > 1
   surf(t, wLu, Lu')
else
   plot3(now, 450, 0);
end

lu_clim = [0 sscanf(getProperty(prop, 'lu.clim'), '%f')];
set(gca, 'CLim', lu_clim);
view([30 30])
shading interp
%colormap(getProperty(prop, 'radiometer.colormap'))
colormap(colormapS);
colorbar2
set(gca, 'XLim', XLim, 'XGrid', 'on', 'YLim', YLim, 'ZLim', lu_clim)
daytick('x');
ylabel('\bf{\lambda (nm)}')
xlabel('\bf{Date}')
zlabel(['\bf{Lu (\muW cm^-^2 nm^-^1 str^-^1)}']);
title(['\bf{HR2 Lu at ' upper(id) ' at ' num2str(zLu) 'm (' loc{1} ')}'])
setfontsize(7)
set(gcf, 'PaperPosition', [0 0 3.75 3.25])

figure;
if length(t) > 1
   surf(t, wEd, Ed')
else
   plot3(now, 450, 0);
end
   
ed_clim = [0 sscanf(getProperty(prop, 'ed.clim'), '%f')];
set(gca, 'CLim', ed_clim);
view([30 30])
shading interp
%colormap(getProperty(prop, 'radiometer.colormap'))
colormap(colormapS);
colorbar2
set(gca, 'XLim', XLim, 'XGrid', 'on', 'ZLim', ed_clim)
daytick('x');
ylabel('\bf{\lambda (nm)}')
xlabel('\bf{Date}')
zlabel(['\bf{Ed (\muW cm^-^2 nm^-^1)}']);
title(['\bf{HR2 Ed at ' upper(id) ' at ' num2str(zEd) 'm (' loc{1} ')}'])
setfontsize(7)
set(gcf, 'PaperPosition', [0 0 3.75 3.25])
