1 |
function [U,V] = uvcube2latlon(LON,LAT,u,v,xc,yc) |
function [U,V,ub,vb] = uvcube2latlon(LON,LAT,u,v,xc,yc) |
2 |
% [ui,vi]=cube2latlon(x,y,u,v,xi,yi); |
% [ui,vi]=cube2latlon(x,y,u,v,xi,yi); |
3 |
% |
% |
4 |
% Re-grids model output on expanded spherical cube to lat-lon grid. |
% Re-grids model output on expanded spherical cube to lat-lon grid. |
51 |
end |
end |
52 |
end |
end |
53 |
|
|
54 |
U=reshape(U,[nnx NN(2:end)]); |
ub=reshape(U,[nnx NN(2:end)]); |
55 |
V=reshape(V,[nnx NN(2:end)]); |
vb=reshape(V,[nnx NN(2:end)]); |
56 |
|
|
57 |
% xc=-179:2:179; |
%U=cube2latlon(LON,LAT,U,xc,yc); |
58 |
% yc=-89:2:89; |
%V=cube2latlon(LON,LAT,V,xc,yc); |
59 |
U=cube2latlon(LON,LAT,U,xc,yc); |
del=cube2latlon_preprocess(LON,LAT,xc,yc); |
60 |
V=cube2latlon(LON,LAT,V,xc,yc); |
U=cube2latlon_fast(del,ub); |
61 |
|
V=cube2latlon_fast(del,vb); |