Fortran Coder

查看: 68|回复: 2
打印 上一主题 下一主题

[文件读写] 报错Fortran runtime error:End of file

[复制链接]

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
5 点
跳转到指定楼层
楼主
发表于 2024-4-25 23:56:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
下为为添加代码:!ywk
real :: tau
  print*,"===begining==="
open(101,file="/data/home/ywk/WRFfile/WRF-4.1.2/phys/ywk.txt")
read(101,*)tau
print*,"tau=",tau
close(101)
!ywk


ywk.txt内容为:
0.1
0.1
0.1
0.1
0.1

我只考虑增加一个变量,然后赋值,输出,但是会报错,如下:
At line 10279 of file module_ra_rrtmg_sw.f90 (unit = 101, file = '/data/home/ywk/WRFfile/WRF-4.1.2/phys/ywk.txt ')
Fortran runtime error: End of file
所用软件为WRF-les,请问该如何解决报错的问题?

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2024-4-26 08:22:05 | 只看该作者
检查一下路径是否正确。
可以在 open 语句里加上
integer k
open(101,file="/data/home/ywk/WRFfile/WRF-4.1.2/phys/ywk.txt",status="old",ioStat=k)
if(k/=0) write(*,*) "open error!"

2

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
5 点
板凳
 楼主| 发表于 2024-4-26 18:27:56 | 只看该作者
感谢您的回答,不过我还发现了其他问题,这个WRF我设置了三个小时的模拟,前2.5小时都可以输出,但是到2:30:00这一次的时候才会报错,此前的每次运行到这部分代码都会输出tau的值,还是不太清楚是什么原因
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-6 04:29

Powered by Tencent X3.4

© 2013-2024 Tencent

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