- 积分
- 236
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-10-15
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2016-7-16 11:32:36
|
显示全部楼层
我现在直接先写的一个
Avge=new((/444, 4/),"float")
Avgw=new((/444, 4/),"float")
Avgs=new((/444, 4/),"float")
Avgn=new((/444, 4/),"float")
i = 0
do while (i .lt. 444)
j=0
do while(j.lt.4)
Avge(i,j)=dim_sum_n(fintu(i,j,30:35,53)*dy, 0)*30*24*3600/dim_sum_n(dx(30:35)*dy*19,0)
Avgw(i,j)=dim_sum_n(fintu(i,j,30:35,33)*dy, 0)*30*24*3600/dim_sum_n(dx(30:35)*dy*19,0)
Avgs(i,j)=dim_sum_n(fintv(i,j,30,33:52)*dx(30), 0)*30*24*3600/dim_sum_n(dx(30:35)*dy*19,0)
Avgn(i,j)=dim_sum_n(fintv(i,j,36,33:52)*dx(36), 0)*30*24*3600/dim_sum_n(dx(30:35)*dy*19,0)
j=j+1
end do
i = i + 1
system("/bin/rm -f avge.nc")
ncdf = addfile("avge.nc","c")
end
谢谢! |
|