请选择 进入手机版 | 继续访问电脑版
爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 4732|回复: 2

[求助] Fortran数据文件读取

[复制链接]

新浪微博达人勋

发表于 2020-3-5 18:11:30 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

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


图片1.png
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2020-3-11 00:10:00 | 显示全部楼层
今天我也是在弄这个,不知楼主解决了没,
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

新浪微博达人勋

 楼主| 发表于 2020-3-11 10:18:29 | 显示全部楼层
我把前面的代码改为
integer,parameter::m=125,n=53
    integer i,j,k
    real z(m,n),t2m(m,n),t,ave
这样可以正常运行
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表