function mch = ploto(filename)

%Spaghetti code to check to plot CIMT data
%KLM, 05/19/2004
%need to change the netcdf file to reflect the data that you want to plot

disp('Check data file name before proceeding')


%x=netcdf('Ed10_mean.nc');
x=netcdf(['../200406/netcdf/' filename]);
names = ncnames(var(x));
time=utc2sdn(x{1}(:));
data=x{5}(:);
squeezed_data=squeeze(data);
wavel=x{4}(:);
surf(wavel, time, squeezed_data, 'EdgeColor', 'Flat');
datetick('y');
%mch = 1;