Fortran Coder

标题: 报错Fortran runtime error：End of file [打印本页]

作者: 杨文凯 时间: 2024-4-25 23:56
标题: 报错Fortran runtime error：End of file
下为为添加代码：!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，请问该如何解决报错的问题？

作者: fcode 时间: 2024-4-26 08:22
检查一下路径是否正确。
可以在 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!"

作者: 杨文凯 时间: 2024-4-26 18:27
感谢您的回答，不过我还发现了其他问题，这个WRF我设置了三个小时的模拟，前2.5小时都可以输出，但是到2：30：00这一次的时候才会报错，此前的每次运行到这部分代码都会输出tau的值，还是不太清楚是什么原因

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)