try
close(inst_plot);
catch
    fprintf('Already closed');
end

inst_plot=figure;
set(inst_plot,'name','Stor_dat STATS');

t=get(Dhand.Time_Select,'value');
    switch t,
     case 1
        t=1;
      case 2
        t=3;
     case 3
        t=7;
     case 4
        t=100000; 
    end % switch
 
tind=find(Drift.satlantic(1,:)>=falsenow-t);
subplot(2,2,1);
plot(Drift.satlantic(1,tind),Drift.satlantic(2:8,tind));
datetick('x');
xlabel('Time','FontWeight','Bold');
ylabel('uW/cm^2/nm','FontWeight','Bold');
titl=sprintf('%s 1M Radiance',graphtitle);
legend('Lu412','Lu443','Lu490','Lu510','Lu555','Lu670','Lu683',1);
title(titl,'FontWeight','Bold');
subplot(2,2,2);
plot(Drift.satlantic(1,tind),Drift.satlantic(9,tind),'b-');
datetick('x');
xlabel('Time','FontWeight','Bold');
ylabel('uW/cm^2/nm','FontWeight','Bold');
titl=sprintf('%s Surface Irradiance [490]',graphtitle);
title(titl,'FontWeight','Bold');
subplot(2,2,3);
plot(Drift.satlantic(1,tind),Drift.satlantic(11,tind),'r-');
datetick('x');
xlabel('Time','FontWeight','Bold');
ylabel('Celsius','FontWeight','Bold');
titl=sprintf('%s StorDat Temp',graphtitle);
title(titl,'FontWeight','Bold');
subplot(2,2,4);
plot(Drift.satlantic(1,tind),Drift.satlantic(12,tind),'g-');
datetick('x');
xlabel('Time','FontWeight','Bold');
ylabel('mg/m^3','FontWeight','Bold');
titl=sprintf('%s OC4V4 Chlorophyll',graphtitle);
title(titl,'FontWeight','Bold');

set(inst_plot,'Position',[3 29 1022 672]);