repo.or.cz
/
wrf-fire-matlab.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
history
|
raw
|
HEAD
netcdf_write_3d
[wrf-fire-matlab.git]
/
cycling
/
make_ps.m
blob
8b5ea4bab9ce24579a97c374737eba96999c8ad2
1
function ps = make_ps(w,ts,red)
2
%ts is test_struct
3
4
w.tign_g = ts.c;
5
if ~exist('red','var')
6
ps.red = subset_domain(w,1);
7
else
8
ps.red = red;
9
end
10
new_pts = fixpoints2grid(ps.red,[ts.points(:,1),ts.points(:,2)]);
11
12
ps.paths = ts.paths;
13
ps.points = ts.points;
14
ps.grid_pts = ts.grid_pts;
15
ps.idx = new_pts(:,1:2);
16
ps.graph = ts.graph;
17
ps.raw_dist = ts.raw_dist;
18
19
end % function