function [field,lat,lon] = spatial(coord,vect)
N=length(coord);
lato=coord(:,2);
lono=coord(:,3);
%[field,lat,lon] = spatial(coord,vect)
%lato=coord(:,2);
%lono=coord(:,3);
for i=1:N
   lno=lono(i);
   if (lno<0) lno=lno+360; end
   lono(i)=lno;
end
for i=1:N
   ilat=1+(lato(i)-min(lato))/5.0;
   ilon=1+(lono(i)-min(lono))/5.0;
   lon(ilon,ilat)=lono(i);
   lat(ilon,ilat)=lato(i);
   field(ilon,ilat)=vect(i);
end   
      