|
下为为添加代码:!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,请问该如何解决报错的问题?
|
|