提取数据的时候，程序没有显示出错，但是不出结果= =求大婶指点

shanxueke

上面是grd的描述文件，希望用fortran将u，v变量导入新的grd文件中，跪求fortran程序- -
program ex01
implicit none
integer,parameter::nx=37,ny=17,nz=2,nt=48
real u(nx,ny,nz,nt)
integer i,j,iz,it
open(1,file='f:\grads123\data\DATA.dat')
open(12,file='f:\grads123\data\u.grd',form='binary')
do it=1,nt
do iz=1,nz
read(1,*)((u(i,j,iz,it),i=1,nx),j=1,ny)
enddo
enddo
do it=1,nt
do iz=1,nz
write(12)((u(i,j,iz,it),i=1,nx),j=1,ny)
enddo
enddo
end
这是我写的程序，没出错，但是结果出不来= =不知道错在哪里了

言深深

请自行在论坛搜索这种东西···

kongfeng0824

一般不会有人专门写个程序给你的。你需要搜搜然后自己修改。

北五味

这个论坛里面有，我前不久还看到过