function closeplots()
global replotval plotnames;
replotval=-1;
h=findobj('Name','VPR Data Visualization');
h1=findobj(h,'Tag','Checkbox HydroXYZ');
if get(h1,'value')
    for i=1:size(plotnames,1)
        close(findobj('Tag',cell2mat(plotnames(i,1))));
    end
end
h1=findobj(h,'Tag','Checkbox HydroTime');
if get(h1,'value')
    close(findobj('Tag','plot env'));
end
h1=findobj(h,'Tag','Checkbox plotTS');
if get(h1,'value')
    for i=3:size(plotnames,1)
        close(findobj('Tag',['TS ' cell2mat(plotnames(i,1))]));
    end
end
h1=findobj(h,'Tag','Checkbox Flight');
if get(h1,'value')
    close(findobj('Tag','plot flight'));
end
h1=findobj(h,'Tag','Checkbox Courseplot');
if get(h1,'value')
    close(findobj('Tag','plot course'));
end
h1=findobj(h,'Tag','Checkbox Plankton');
if get(h1,'value')
    close(findobj('Tag','Plankton Taxa List'));
end
close(findobj('Tag','plot composite'));
