最长持续无降水日数

自由行

想请教怎么求最长持续无降水日数的fortran程序，，是求每站降水量连续小雨0.1mm的最长天数，需要把每站的持续天数求出来然后再求出其中的最大值吗？想请教高手们，谢谢啦。。急

donkgates

日降水量<1mm的连续天数（最大值）

donkgates

附一段自己写的连续干日数的程序，希望你能用上
do i=1,ni
  do j=1,nj
      k=0
    do yri=1,39
      kk=k+dayi(yri)
           do day=k+1,kk
            d=day-k
            if(var(i,j,day).lt.1)then
                      n(i,j,d,yri)=1
                 do day2=day+1,kk
                  if(var(i,j,day2).lt.1) then
                   n(i,j,d,yri)= n(i,j,d,yri)+1
                   else
                   exit
                  endif
                 enddo
                 else
                 n(i,j,d,yri)=0
                 endif
            enddo
        k=k+dayi(yri)
   enddO
enddo
enddo

print*,'n(1,1,1,1)=',n(1,1,1,1)

do i=1,ni
do j=1,nj
  k=0
  do yri=1,39
   kk=dayi(yri)
   nn(i,j,yri)=n(i,j,k+1,yri)
   do day=k+2,kk
    if(nn(i,j,yri).lt.n(i,j,day,yri))then
         nn(i,j,yri)=n(i,j,day,yri)
        endif
        enddo
   enddo
enddo
enddo
print*,'nn(1,1,1)=',nn(1,1,1)

do i=1,ni
do j=1,nj
  do yri=1,39
   nnn(i,j)=nnn(i,j)+nn(i,j,yri)
  enddo
   nnn(i,j)=nnn(i,j)/39.0
  enddo
enddo

topmad

不这样你还想怎样呢
连续日数嘛  就在满足条件的区间里面找 找到后找个最大的就行了

donkgates

topmad 发表于 2013-12-6 14:42

                               
登录/注册后可看大图

不这样你还想怎样呢
连续日数嘛  就在满足条件的区间里面找 找到后找个最大的就行了

第一句话亮了  哈哈

自由行

donkgates 发表于 2013-12-6 14:41

                               
登录/注册后可看大图

附一段自己写的连续干日数的程序，希望你能用上
do i=1,ni
  do j=1,nj

谢谢，不过看似很复杂的感觉，，嘻嘻

做个霸气的木头

是小于0.1mm的连续无降水日数的最大值，一般在月报表中统计本月最后连续无降水日数或连续有降水日数。常规科研中多用于研究干旱等

自由行

做个霸气的木头 发表于 2013-12-6 18:21

                               
登录/注册后可看大图

是小于0.1mm的连续无降水日数的最大值，一般在月报表中统计本月最后连续无降水日数或连续有降水日数。常规科 ...

谢谢版主的回答

自由行

自己琢磨了很久，想请教版主和高手们。怎么通过编程能编写最长连续无降水日数（每站日降水量连续小于0.1mm的最长天数）不知道怎么求解，，希望各大神求救。。

zihan6688

论坛里面有现成的程序，自己搜一下