求提供思路，怎么求连续降雨日数（或连续大于某值日数）

Bachelor

求提供思路，怎么求连续降雨日数（或连续大于某值日数），我以前好像在论坛看到过fortran程序的，现在找不到了，有能指导一下的吗?

oishii

大概思路：设定一逻辑变量bool为真，逐行读数据开始判断，
if(bool) then
         if 降水>0 then
                  记录降水日数，并设该bool为真
         else if若降水为0，then
                  设bool为假
         end if
end if
该循环结束后，对bool进行判断，若.not.bool为假，则继续读取下行数据重复上述判断；
若.not.bool为真，则一次降水过程结束…

大概这样吧。

二爷名声在外

之前有，你找一下吧…我见过N次，也回答过N次了……

Bachelor

正在找。。。不用的时候到处见到，用的时候就找不到了，哎。

a523yyyy

数据是什么样子的？

Bachelor

a523yyyy 发表于 2015-1-15 14:40
数据是什么样子的？

区站号 年 月 日 降雨量

hulihutu

我觉得大体思路应该是：
k=0，做循环，如果降雨量大于某数值，k=k+1，如果小于这个数值，且k/=0，把k写到可变数组里，并且令k=0

粗略思路，不对的地方欢迎指正~~

118702

        do j=2,n
        if((temHsy(is,i,n-1).lt.high95th(is)).and.(temHsy(is,i,n).ge.high95th(is)))then
        h=1
                elseif((temHsy(is,i,n-1).ge.high95th(is)).and.(temHsy(is,i,n).ge.high95th(is)))then
                h=h+1
                elseif((temHsy(is,i,n-1).ge.high95th(is)).and.(temHsy(is,i,n).lt.high95th(is)))then
        h=0
                else                                                                                                                                                                                                                                                                           
                endif
                if(h.ge.4)then
.................................
我编的程序有类似于这样的部分，你试试吧。

118702

当然外面还有两个循环我就没弄出来了。。。

118702

里面的是J，我写成N了，弄错了，换一下就可以了，大概思路是这样的吧