- 积分
- 12551
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2018-10-25
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
求助各位!Fortran编程运行过程中,编成运行后显示如下错误(图片中显示),不知是什么原因,大概知道是数据文件读取的问题,但是不知道怎样改正。数据文件是通过grads从nc文件转为的grd文件,截取了一部分经纬度输出的数据文件,求问各位怎样解决!!!跪谢!
fortran代码如下:program exam
real z(125,53),t2m(125,53)
real ave,t
integer i,j,k
open(10,file='d:\exam\wendu.grd',form='binary',err=100)
open(20,file='d:\exam\dixing.grd',form='binary',err=200)
100 print*,'文件不能正常打开'
200 print*,'文件不能正常打开!'
do j=1,125
do i=1,53
read(10) t2m(i,j)
end do
end do
do j=1,125
do i=1,53
read(20) z(i,j)
end do
end do
t=0.0
k=1
do i=1,m
do j=1,n
if(z(i,j)>29419)then
t=t+t2m(i,j)
k=k+1
else
t=t
k=k
ave=t/k
endif
end do
end do
print*,'ave=',ave
close(10)
close(20)
end
|
|