- 积分
- 18
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-23
- 最后登录
- 1970-1-1
|
发表于 2017-1-7 22:25:19
|
显示全部楼层
用附件中的程序计算得到的辐散风全为nan是什么原因呀?程序如下,拜托大神帮忙解决下吧
clc;clear;clc;
% 88888888888888888888888888读取u8888888888888888888888888888888888
fileu='F:\omega\uwnd.mon.mean.194801to201612.nc';
% ncdisp(fileu);
lonn=ncread(fileu,'lon');
latt=ncread(fileu,'lat');
lonsta=find(lonn==0);
lonend=find(lonn==357.5);
latsta=find(latt==90);
latend=find(latt==-90);
nnx=lonend-lonsta+1;
nny=latend-latsta+1;
lon=lonn(lonsta:lonend);
lat=latt(latend:-1:latsta);
clear lonn;
clear latt;
t=ncread(fileu,'time',541,264);
level=ncread(fileu,'level',1,10);
level1=level;
uzong1=ncread(fileu,'uwnd',[lonsta latsta 1 541],[nnx nny 10 264]);
for j=1:nny
uzong(:,j,:,:)=uzong1(:,nny+1-j,:,:);
end
clear fileu;
clear uzong1;
% 88888888888888888888888888读取v8888888888888888888888888888888888
filev='F:\omega\vwnd.mon.mean.194801to201612.nc';
vzong1=ncread(filev,'vwnd',[lonsta latsta 1 541],[nnx nny 10 264]);
for j=1:nny
vzong(:,j,:,:)=vzong1(:,nny+1-j,:,:);
end
clear filev;
clear vzong1;
[lat,lon]=meshgrid(lat,lon);
for k=1:264
for j=1:10
u(:,:)=uzong(:,:,j,k);
v(:,:)=vzong(:,:,j,k);
[chi,Uchi,Vchi]=chi_potential(lon, lat, u, v);
udiv(:,:,j,k)=Uchi(:,:);
vdiv(:,:,j,k)=Vchi(:,:);
shi(:,:,j,k)=chi(:,:);
end
end |
|