%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% PURPOSE: Plot raw ISUS data
% AUTHOR:  Initial; rsm; nst
% DATE:    01/07/12
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Units and Fundamental Constants:
  units


  if ( exist('isuslog') ~= 1 ) return; end
  
  str = [' ',titleStr, ' ',myDate];
  PaperPosn = [.5 .5 3.75 2.5];
  FigurePosn = [5 30 815 760];
  i = 0;
  if exist( 'isusFig1' ) ~= 1
      isusFig1 = figure;
  else 
      figure( isusFig1 ); 
  end
    
  set( isusFig1, 'name', 'ISUS Nitrate & Quality', ...
       'DeleteFcn', 'clear isusFig1' );
  set(gcf,'position',position)
  clf

    subplot(3,1,1)
    plot( isuslog(:,m_present_time), isuslog(:,isusNitrate));
    ylabel('uM')
    title(['Nitrate',str]);
    grid on
    zoom on

    subplot(3,1,2)
    [xx,yy] = stairs( isuslog(:,m_present_time), isuslog(:,isusQuality));
    plot(xx,yy);
    set( gca, 'ydir', 'reverse' );
    ylabel(' ')
    title(['Quality',str]);
    grid on
    zoom on

 if ( exist('dataNav') == 1 )
    subplot(3,1,3)
    [xx,yy] = stairs( dataNav(:,m_present_time), dataNav(:,mDepth));
    plot(xx,yy);
    set( gca, 'ydir', 'reverse' );
    ylabel('Meters')
    title(['Depth',str]);
    grid on
    zoom on
 end
       
    
