function plot_argos_hr(Cal_hr,mlab)
    
    tind=find(Cal_hr.Time(:)>=(now)-5);
  
    if isfield(Cal_hr,'Es')
    plot(Cal_hr.Time(tind),Cal_hr.Es(:,tind),'.-','MarkerSize',20);
    ylabel('E_d_0_+(W/m^2/nm)');
   % xlabel('Date','FontWeight','Bold');
    set(gca,'xtick',[floor(min(Cal_hr.Time(tind))):1:floor(max(Cal_hr.Time(tind)))])
    set(gca,'xticklabel',datestr([Cal_hr.Time(tind)],6))
    %set(gca,'XTickLabel',datestr(Cal_hr.Time,6));
    legend(num2str(Cal_hr.Lambda.Es(1)),num2str(Cal_hr.Lambda.Es(2)),num2str(Cal_hr.Lambda.Es(3)),num2str(Cal_hr.Lambda.Es(4)),num2str(Cal_hr.Lambda.Es(5)),2);
    title('Downwelling Irradiance Air -- Channel 1 at 0^+ m');
    set(gcf,'PaperPosition',[.25 2.5 4.5 3.25]);
    setfontsize(7);
    writegif([char((mlab)) 'hr3_Es']);
    close gcf;
    end
    
    plot(Cal_hr.Time(tind),Cal_hr.Ed(:,tind),'.-','MarkerSize',20);
    ylabel('E_d_z (W/m^2/nm)');
   % xlabel('Date','FontWeight','Bold');
    set(gca,'xtick',[floor(min(Cal_hr.Time(tind))):1:floor(max(Cal_hr.Time(tind)))])
    set(gca,'xticklabel',datestr([Cal_hr.Time(tind)],6))
    legend(num2str(Cal_hr.Lambda.Ed(1)),num2str(Cal_hr.Lambda.Ed(2)),num2str(Cal_hr.Lambda.Ed(3)),num2str(Cal_hr.Lambda.Ed(4)),num2str(Cal_hr.Lambda.Ed(5)),2);
    title('Downwelling Irradiance Wet -- Channel 1 at 10 m');
    set(gcf,'PaperPosition',[.25 2.5 4.5 3.25]);
    setfontsize(7);
    writegif([char((mlab)) 'hr3_Ed']);
    close gcf;
    
    
    plot(Cal_hr.Time(tind),Cal_hr.Lu(:,tind),'.-','MarkerSize',20);
    ylabel('L_u_z (W/m^2/nm/sr)');
   % xlabel('Date','FontWeight','Bold');
    set(gca,'xtick',[floor(min(Cal_hr.Time(tind))):1:floor(max(Cal_hr.Time(tind)))])
    set(gca,'xticklabel',datestr([Cal_hr.Time(tind)],6))
    legend(num2str(Cal_hr.Lambda.Lu(1)),num2str(Cal_hr.Lambda.Lu(2)),num2str(Cal_hr.Lambda.Lu(3)),num2str(Cal_hr.Lambda.Lu(4)),num2str(Cal_hr.Lambda.Lu(5)),2);
    title('Upwelling Radiance Wet -- Channel 2 at 10 m');
    set(gcf,'PaperPosition',[.25 2.5 4.5 3.25]);
    setfontsize(7);
    writegif([char((mlab)) 'hr3_Lu']);
    close gcf;