cycling/fixpoints2grid.m

   1 function new_pts = fixpoints2grid(r,pts)
   2 %function moves scattered points to closest locations on fire grid
   3 % inputs:
   4 %    r,    red,w   --   struct comtaining fxlong,fxlat from a wrfout or
   5 %    wrfinput
   6 %    pts  nx2 matrix with rows [lat lon]
   7 % output:
   8 %    new_pts  - indices i,j for closest locations on the fire mesh
   9 %    fxlong,fxlat
  10 [n,m] = size(pts);
  11 new_pts = zeros(n,4);
  12 for i = 1:size(pts)
  13     [new_pts(i,1),new_pts(i,2),new_pts(i,3),new_pts(i,4)] = fixpt(r,pts(i,1:2));
  14 end
  15