function kmlgridded(md,data,varargin)

%process options
options=pairoptions(varargin{:});

%process options
options=changefieldvalue(options,'coord','latlon');

%process mesh and data
[x y z elements is2d isplanet]=processmesh(md,[],options);
[data datatype]=processdata(md,data,options);

%check is2d
if ~is2d, 
	error('buildgridded error message: gridded not supported for 3d meshes, project on a layer');
end

%Get xlim and ylim (used to extract radar image)
xlim=[min(x) max(x)];
ylim=[min(y) max(y)];
post=getfieldvalue(options,'posting',diff(xlim)/1000);
if(diff(xlim)/post>10000),
	error(['posting too large']);
end

%Interpolating data on grid
[x_m y_m data_grid]=InterpFromMeshToGrid(elements,x,y,data,xlim(1),ylim(2),post,post,round(diff(ylim)/post),round(diff(xlim)/post),NaN);
if size(data_grid,1)<3 | size(data_grid,2)<3,
	error('data_grid size too small, check posting and units');
end
pos=find(isinf(data_grid));
if ~isempty(pos),
	disp('Warning: removing Infs from vector (probably log(0)?)');
	data_grid(pos)=NaN;
end

%Process data_grid: add white in NaN and correct caxis accordingly
data_nan=find(isnan(data_grid));
data_min=min(data_grid(:));
data_max=max(data_grid(:));
if exist(options,'caxis'),
	caxis_opt=getfieldvalue(options,'caxis');
	data_grid(find(data_grid<caxis_opt(1)))=caxis_opt(1);
	data_grid(find(data_grid>caxis_opt(2)))=caxis_opt(2);
	data_min=caxis_opt(1);
	data_max=caxis_opt(2);
end

%Get colormap
colorm = getcolormap(options);
len    = size(colorm,1);
ind = ceil((len-1)*(data_grid-data_min)/(data_max - data_min + eps) +1);
ind(find(ind>len))=len;
ind(find(ind<1)  )=1;
ind(find(isnan(ind)))=1;
image_rgb=zeros(size(data_grid,1),size(data_grid,2),3);
r=colorm(:,1); image_rgb(:,:,1)=r(ind); clear r;
g=colorm(:,2); image_rgb(:,:,2)=g(ind); clear g;
b=colorm(:,3); image_rgb(:,:,3)=b(ind); clear b;

%Deal with alpha
alpha=getfieldvalue(options,'alpha',.8);
alphaMatrix = alpha*ones(size(data_grid));
alphaMatrix(data_nan) = 0;

%write kml
kmlfilename=getfieldvalue(options,'kmlfilename','tempfile.kml');
kmlroot=getfieldvalue(options,'kmlroot','./');
kmlimagename=getfieldvalue(options,'kmlimagename','tempimage');
kmlresolution=getfieldvalue(options,'kmlresolution',1);
kmlfolder=getfieldvalue(options,'kmlfolder','Ground Overlay');
kmlfolderdescription=getfieldvalue(options,'kmlfolderdescription','');
kmlgroundoverlayname=getfieldvalue(options,'kmlgroundoverlayname','ground overlay');
kmlgroundoverlaydescription=getfieldvalue(options,'kmlgroundoverlaydescription','description');

%write png
imwrite(image_rgb,[kmlimagename '.png'],'png','alpha',alphaMatrix);
clear image_rgb alphaMatrix

%prepare colorbar
iscolorbar=0;
if strcmpi(getfieldvalue(options,'colorbar','on'),'on'),
	X = linspace(0,1,len)';
	Xlab = round(linspace(data_min,data_max,len+1));
	html = ['<TABLE border=' num2str(1) ' bgcolor=#FFFFFF>',10];

	for k=len:-1:1
		f = (Xlab(k)-data_min)/(data_max-data_min);
		if f<0, f=0; end
		if f>1, f=1; end
		polyColor(1,1) = interp1(X,colorm(:,1),f);
		polyColor(1,2) = interp1(X,colorm(:,2),f);
		polyColor(1,3) = interp1(X,colorm(:,3),f);
		polyColorStr(1:2) = dec2hex(round(polyColor(1)*255),2);
		polyColorStr(3:4) = dec2hex(round(polyColor(2)*255),2);
		polyColorStr(5:6) = dec2hex(round(polyColor(3)*255),2);
		html = [html,'<TR><TD width="15px" bgcolor=#',polyColorStr, '>&nbsp;</TD>','<TD bgcolor=#FFFFFF>'];
		if k==1
			html=[html,'&lt;= ',num2str(Xlab(k),'%g')];
		elseif k==len
			html=[html,'&gt;= ',num2str(Xlab(k),'%g')];
		else
			html=[html,num2str(Xlab(k),'%g'),' to ',num2str(Xlab(k+1),'%g'),'</TD>'];
		end
		html = [html,'</TR>',10];
	end
	html = [html,'</TABLE>'];
	iscolorbar = 1;
end

%now write kml file
fid=fopen([kmlroot '/' kmlfilename],'w');
fprintf(fid,'%s\n','<?xml version="1.0" encoding="UTF-8"?>');
fprintf(fid,'%s\n','<kml xmlns="http://earth.google.com/kml/2.1">');
fprintf(fid,'%s\n','<Document>');
fprintf(fid,'%s%s%s\n','<name>',kmlfilename,'</name>');
if iscolorbar,
	fprintf(fid,'<Placemark id="colorbar">\n');
	fprintf(fid,'%s%s%s\n','<name>','click the icon to see the colorbar','</name>');
	fprintf(fid,'%s%s%s\n','<description>','Ground overlay colorbar','</description>');
	fprintf(fid,'<visibility>1</visibility>\n');
	fprintf(fid,['<description>',10,'<![CDATA[' html ']]>',10,'</description>',10,'\n']);
	fprintf(fid,['<Style><IconStyle><scale>1</scale><Icon><href>http://maps.google.com/mapfiles/kml/shapes/donut.png</href></Icon></IconStyle><ListStyle></ListStyle></Style><Point id="poly_colorbar">\n']);
	fprintf(fid,'<altitudeMode>clampToGround</altitudeMode>\n');
	fprintf(fid,'<extrude>1</extrude>\n');
	fprintf(fid,'<tessellate>1</tessellate>\n');
	fprintf(fid,'%s%g,%g%s\n','<coordinates>',max(x),mean(y),'</coordinates>');
	fprintf(fid,'</Point>\n');
	fprintf(fid,'</Placemark>\n');
end
fprintf(fid,'%s\n','<GroundOverlay id="groundoverlay">');
fprintf(fid,'%s%s%s\n','<name>',kmlgroundoverlayname,'</name>');
fprintf(fid,'%s\n','<description>',kmlgroundoverlaydescription,'</description>');
fprintf(fid,'%s%s.%s%s\n','<Icon>',kmlimagename,'png','</Icon>');
fprintf(fid,'%s\n','<LatLonBox>');
fprintf(fid,'%s%f%s\n','<north>',max(y_m),'</north>');
fprintf(fid,'%s%f%s\n','<south>',min(y_m),'</south>');
fprintf(fid,'%s%f%s\n','<east>',max(x_m),'</east>');
fprintf(fid,'%s%f%s\n','<west>',min(x_m),'</west>');
fprintf(fid,'%s\n','<rotation>0</rotation>');
fprintf(fid,'%s\n','</LatLonBox>');
fprintf(fid,'%s\n','</GroundOverlay>');
fprintf(fid,'%s\n','</Document>');
fprintf(fid,'%s\n','</kml>');
fclose(fid);
