function makePcolorplot2(Hs,Dir,data,ftitle,c_scale)
% make PColor figure
% IMPORTANT: THIS IS NOT A GENERIC PLOT FUNCTION!!!!
% some dimensions may be hard coded

for  i = 1:length(Dir);
    ticklabDir{i} = num2str(Dir(i));
end
for  i = 1:length(Hs);
    ticklabHs{i} = num2str(Hs(i));
end

figure
%data (data==0) = NaN;
pcolor (0:size(data,2),0:size(Hs,2),[data data(:,end); data(end,:) data(end,end)] ); shading flat;
title(ftitle)
xlabel('\rightarrow Wave Angle (^\o N)')
ylabel('\rightarrow H_s (m)')
set(gca,'Xtick',[0:1:length(Dir)])
set(gca,'XTickLabel',ticklabDir);
set(gca,'Ytick',[0:1:length(Hs)])
set(gca,'YTickLabel',ticklabHs);
set(gca,'TickLength',[0,0]);
caxis(c_scale)
colorbar
data (isnan(data)) = 0;
