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/) Powered by Discuz! X3.2