fortran求最长持续降水天数

Nono

其实你不用把大于10mm的数据挑出来的，原来的数据更好处理，挑的过程其实就可以算出结果了。我不是太了解你具体的数据格式，下面是我编的一个例子，你看看后修改一下应该就可以用了，数据就用原始的不要剔除后的

1.     imax=0   
   
2.     i=1
   
3.     j=0
   
4.     do y=1961,2005
   
5.         flag=0
   
6.         if(mod(1.0*y,4)/=0) then
   
7.             flag=1
   
8.         endif
   
9.         if(p(1)>=10.0) then
   
10.             j=1
    
11.             i=i+1
    
12.         endif
    
13.         do d=2,366-flag
    
14.             if(p(i)>=10.0).and(p(i-1)>=10.0) then
    
15.                j=j+1
    
16.             else
    
17.                imax=max(imax,j)
    
18.                j=0
    
19.             endif
    
20.             i=i+1
    
21.         enddo
    
22.     enddo

复制代码

   imax=0   
    i=1
    j=0
    do y=1961,2005
        flag=0
        if(mod(1.0*y,4)/=0) then
            flag=1
        endif
        if(p(1)>=10.0) then
            j=1
            i=i+1
        endif
        do d=2,366-flag
            if(p(i)>=10.0).and(p(i-1)>=10.0) then
               j=j+1
            else
               imax=max(imax,j)
               j=0
            endif
            i=i+1
        enddo
    enddo