function m_lookFluor(id, NumOfDays)

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

% Set the path to the data file depending on what type of machine this function is run from
FileName = 'spec.misc';

prop = readProperties(fullfile(getOasisPath, '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];

% Read analog flurometer
try
   analog = readflatfile(fullfile(getOasisPath, id, 'data', 'fluor'));
   t1 = jul2date(analog(:,1), analog(:, end));
   good = find(t1 >= now - NumOfDays);
   t1 = t1(good);
   y1 = analog(good,2);
catch
   t1 = now;
   y1 = NaN;
end

% Read the hs2 data file
p = fullfile(getOasisPath, id, 'netcdf');
files = getfname(fullfile(p, [id '_hs2*.nc']));
if isempty(files)
    files = getfname(fullfile(p, [upper(id) '_hs2*.nc']));
end

% Search each file for data within our desired timebounds.
tBuf = [];
yBuf = [];
if (~isempty(files))
    
    for i = 1:size(files, 1)
        infile = netcdf(fullfile(p, deblank(files(i, :))));
        t2 = utc2sdn(infile{'time'}(:));
        good = find(t2 >= now - NumOfDays);
        if ~isempty(good)
            t2 = t2(good);
            y2 = infile{'fl676_mean'}(good);
            if isempty(y2)
               yBuf = infile{'fl676'}(good); 
            end
        else
            t2 = NaN;
            y2 = NaN;
        end
        tBuf = [tBuf; t2];
        yBuf = [yBuf; y2];
    end
    
    % Sort the data by time.
    [t2, i] = sort(tBuf);
    y2 = yBuf(i);
else
    t2 = NaN;
    y2 = NaN;
end

a0 = axes;
set(a0, 'Xtick', [], 'YTick', [], 'Box', 'on')
title(['\bf{Fluorometers at ' upper(id) ' (' loc{1} ')}'])

a1 = axes;
Color1 = [0 0 1];
plot(t1, y1, 'Color', Color1);
set(a1, 'YColor', Color1, 'box', 'off', 'Color', 'none', 'Xgrid', 'on', ...
   'XLim', XLim, 'Layer', 'bottom')
daytick('x');
ylabel('\bf{Analog (V)}', 'Color', Color1)
xlabel('\bf{Date}')

a2 = axes;
Color2 = [1 0 0];
plot(t2, y2, 'Color', Color2)
set(a2, 'Color', 'none', 'XLim', XLim, 'XTick', [], 'YColor', Color2, ...
   'box', 'off','YAxisLocation', 'right')
ylabel('\bf{HS2}', 'Color', Color2, 'Rotation', 270, 'VerticalAlignment', 'Bottom')
setfontsize(7)

set(gcf, 'PaperPosition', [0 0 3.75 3.25])
