登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
已经运行的fortran文件这样输出了
open(100,file=trim(pathout)//trim(fname)//'-UV.grd',
* form='unformatted',access='direct',recl=nx*ny*nest*6*4)
write(100,rec=1)lx,ly,real(un,4),real(vn,4),vtn,ang
close(100)
然后我对着这些数据写了新的程序想要使用,读取方法出现了问题
1. open(100,file=trim(pathout)//trim(fname)//'-UV.grd',
* form='unformatted',access='direct',recl=nx*ny*nest*6*4)
read(100,rec=1)lx,ly,real(un,4),real(vn,4),vtn,ang
close(100)
2.open(100,file=trim(pathout)//trim(fname)//'-UV.grd',
* form='unformatted',access='direct',recl=nx*ny*nest*6*4)
read(100,rec=1)(((lx(i,j,k),i=1,nx),j=1,ny),k=1,nest),
*(((ly(i,j,k),i=1,nx),j=1,ny),k=1,nest),(((un(i,j,k),i=1,nx)
*,j=1,ny),k=1,nest),(((vn(i,j,k),i=1,nx),j=1,ny),k=1,nest),
*(((vtn(i,j,k),i=1,nx),j=1,ny),k=1,nest),(((ang(i,j,k),i=1,nx)
*,j=1,ny),k=1,nest)
close(100)
请问该怎么读 |