%% plot error map in a new window

%%  Kriging Software Package  version 1.0 beta,   October 29, 1998
%%  Copyright (c) 1998, property of Dezhang Chu and Woods Hole Oceanographic
%%  Institution.  All Rights Reserved.


figure
%%% plot kriging error map
hxy=pcolor(xg_grd,yg_grd,Eg);shading interp;
%set(hxy,'ButtonDownFcn','errmap');
hold on
[c,H]=contour(xg_grd,yg_grd,Eg,'k');
hh=clabel(c,H);
if TrackLineCode > 1
  if n >= 100
     hxy=plot(xs,ys,'w','linewidth',2.5);
  else
   hxy=plot(xs,ys,'.w','markersize',15);
  end
end
ht=title('KRIGING ERROR MAP');
if Lat_long == 1
   hx=xlabel('LONGITUDE');
   hy=ylabel('LATITUDE');
else
   hx=xlabel('X (km)');
   hy=ylabel('Y (km)');
end
set([ht hx hy],'fontweight','bold')
hdk2cb=colorbar('horiz');
set(hdk2cb,'Tag','Colorbar2');
axis([ xgmin xgmax ygmin ygmax])

hold off

colormap(fcmap);