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

Bachelor · 发表于 2015-1-12 21:03:02

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

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

oishii · 发表于 2015-1-22 21:53:20

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

大概这样吧。

二爷名声在外 · 发表于 2015-1-12 21:15:54

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

Bachelor · 发表于 2015-1-12 21:17:56

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

a523yyyy · 发表于 2015-1-15 14:40:12

本帖最后由 a523yyyy 于 2015-1-15 14:42 编辑

数据是什么样子的？

Bachelor · 发表于 2015-1-15 23:23:14

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

区站号年月日降雨量

hulihutu · 发表于 2015-1-16 13:24:59

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

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

118702 · 发表于 2015-1-22 13:31:38

      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 · 发表于 2015-1-22 13:32:27

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

118702 · 发表于 2015-1-22 13:34:17

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

		自动登录	找回密码
密码			立即注册

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

登录后查看更多精彩内容~