我正在尝试逐行读取不同目录中的文件列表。该列表存储在文件单元10中。它成功读入第一个条目,但不能读取以下任何条目
do plvl_count = 0, plvls
do line_num = 0, numlines
read(10,*) filename
fullpath = trim(out_dir) // '/' // trim(filename)
call read_binary(trim(fullpath),avg_temp_flat)
avg_temp = reshape(avg_temp_flat,(/numlats,numlons/))
if (line_num == 0) then
avg_out(:,:,plvl_count) = avg_temp
else
avg_out(:,:,plvl_count) = avg_out(:,:,plvl_count) + avg_temp
endif
end do
end do
我收到的错误是
forrtl: No such file or directory
forrtl: severe (29): file not found, unit 10
在这个循环之上,我很好地引入了几行元数据。只有当我在循环中,循环浏览文件时才会遇到错误。 read_binary子例程已经过严格测试,并不是错误的来源。在此先感谢!!