（已解决）fortran程序调试不出错运行断点

咩咩的羊

fortran程序运行不出错，调试出错。主要程序段是读取三个grd文件处理之后形成新的grd文件。求助！

program main
integer nx,ny,i,j,t
parameter(nx=480,ny=78,nt=31,nt2=28)
real t2m1(nx,ny,nt),t2m2(nx,ny,nt),t2m3(nx,ny,nt),num(nx,ny),num1(nx,ny),num2(nx,ny),num3(nx,ny)
num=0
open(2,file='F:\academy\team\200701.grd',form='binary')
read(2)(((t2m1(i,j,t),i=1,nx),j=1,ny),t=1,nt)

do j=1,ny
num1=0
do i=1,nx
  do t=1,nt
  if(t2m1(i,j,t)>=36)then
   num1(i,j)=num1(i,j)+1
  endif
  enddo
end do
enddo

open(4,file='F:\academy\team\200702.grd',form='binary')
read(4)(((t2m2(i,j,t),i=1,nx),j=1,ny),t=1,nt2)

do j=1,ny
num2=0
do i=1,nx
  do t=1,nt2
  if(t2m2(i,j,t)>=36)then
   num2(i,j)=num2(i,j)+1
  endif
  enddo
end do
enddo

open(6,file='F:\academy\team\200712.grd',form='binary')
read(6)(((t2m3(i,j,t),i=1,nx),j=1,ny),t=1,nt)

do j=1,ny
num3=0
do i=1,nx
  do t=1,nt
  if(t2m3(i,j,t)>=36)then
   num3(i,j)=num3(i,j)+1
  endif
  enddo
end do
enddo

open(3,file='F:\academy\team\2007d.grd',form='binary')
num(i,j)=num1(i,j)+num2(i,j)+num3(i,j)
write(3)((num(i,j),i=1,nx),j=1,ny)
close(2)
close(3)
close(4)
close(6)
end

小傅之追梦

num(i,j)=num1(i,j)+num2(i,j)+num3(i,j)
这个地方怎么不加循环了？

咩咩的羊

小傅之追梦 发表于 2018-9-9 17:13
num(i,j)=num1(i,j)+num2(i,j)+num3(i,j)
这个地方怎么不加循环了？

后面的小括号算一次循环吧

咩咩的羊

小傅之追梦 发表于 2018-9-9 17:13
num(i,j)=num1(i,j)+num2(i,j)+num3(i,j)
这个地方怎么不加循环了？

后面的小括号算一次循环吧

小傅之追梦

咩咩的羊 发表于 2018-9-27 20:17
后面的小括号算一次循环吧

当然不是。需要重新
do j =   ...
do i = ...

咩咩的羊

小傅之追梦 发表于 2018-9-28 09:30
当然不是。需要重新
do j =   ...
do i = ...

喔~是这样子啊，谢谢你呀，我的基础知识真的不扎实，回头再学学

Rin

请问你是怎么解决的

咩咩的羊

Rin 发表于 2019-3-14 21:55
请问你是怎么解决的

换了一种方法，因为不知道这个帖子怎么删就标注了解决......貌似带来了更大的误解