- 积分
- 444
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-2-21
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2017-10-10 19:16:36
|
显示全部楼层
ty=new(51,double)
ty=0
m=2529
do tt=1,51
do i=0,nlat-1
do j=0,nlon-1
if(any(ismissing(dtdy1(tt,i,j)))) then
dtdy1(tt,i,j)=0
m=m-1
else
ty(tt)=ty(tt)+dtdy1(tt,i,j)
end if
end do
end do
ty=ty(tt)*(m^(-1)) ;2529是总的格点数
print(ty)
end do我把ty=0赋值为0不行吗?我把缺省值单拎出来之后,出来的结果是(0) -9.530448159410801
(1) -9.530448159410801
(2) -9.530448159410801
(3) -9.530448159410801
(4) -9.530448159410801
(5) -9.530448159410801
(6) -9.530448159410801
(7) -9.530448159410801
(8) -9.530448159410801
(9) -9.530448159410801
(10) -9.530448159410801
(11) -9.530448159410801
(12) -9.530448159410801
(13) -9.530448159410801
(14) -9.530448159410801
(15) -9.530448159410801
(16) -9.530448159410801
|
|