（已解决）fortran运行代码总是失败，读数据的问题

咩咩的羊

求助！fortran计算每个月超规定数值天数的时候，运行不报错，调试报错，求助各位！
我觉得应该是读数据的问题，但是我不知道如何解决。
附上grd的形成文件和fortran程序
program main
integer nx,ny,i,j,t
parameter(nx=480,ny=78,nt=31)
real t2m(nx,ny,nt),num(nx,ny)
open(2,file='F:\academy\team\200701.grd',form='binary')
read(2,100)(((t2m(i,j,t),i=1,nx),j=1,ny),t=1,nt)
100 format (2i7)
do j=1,ny
do i=1,nx
  do t=1,nt
  num(i,j)=0
  if(t2m(i,j,t)>=36)then
   num(i,j)=num(i,j)+1
  endif
  enddo
end do
enddo
open(3,file='F:\academy\team\2007010.grd',form='binary')
write(3)((num(i,j),i=1,nx),j=1,ny)
close(2)
close(3)
end

小傅之追梦

加强Fortran基础知识学习

小傅之追梦

open(2,file='F:\academy\team\200701.grd',form='binary')
read(2,100)(((t2m(i,j,t),i=1,nx),j=1,ny),t=1,nt)

读取的不对
read(2)(((t2m(i,j,t),i=1,nx),j=1,ny),t=1,nt)

咩咩的羊

小傅之追梦 发表于 2018-9-8 16:42
open(2,file='F:\academy\team\200701.grd',form='binary')
read(2,100)(((t2m(i,j,t),i=1,nx),j=1,ny),t= ...

100是格式，应该不影响吧

gwk

咩咩的羊 发表于 2018-9-8 16:48
100是格式，应该不影响吧

既然是格式，那你open那块打开的是二进制顺序文件，怎么能加上100那个格式呢？另外我觉得应该把这调换位置
do t=1,nt
  num(i,j)=0

咩咩的羊

gwk 发表于 2018-9-8 21:23
既然是格式，那你open那块打开的是二进制顺序文件，怎么能加上100那个格式呢？另外我觉得应该把这调换位 ...

喔~删掉果然可以了哎！谢谢！！

咩咩的羊

小傅之追梦 发表于 2018-9-9 12:36
加强Fortran基础知识学习

嗯呐嗯呐，一到真正使用就出毛病了呢