fortan游程统计

原紫色天空的爱

初级菜鸟，求指导。最近在做降水游程统计，老是运行不出来，一运行就出错，求指导。我的思路是计数连续没有降水的天数，如果十天没有降水，则十天的次数里加一次，各位大神看看哪里错了

随缘

最好把错误贴上来便于别人找错

love2100

光说大家都不清楚，既然请教于大家那就要把源程序发上来，一个标点符号都可能会引起错误的

godenflame135

想帮你解决问题吧，你给的信息不足，也没办法具体问题具体分析。程序中也没行注释，看不懂程序在干嘛。打开文件读取什么东西也不知道。

言深深

楼上所了很多了，我知道曾经@topmad做过类似的工作，可以交流一下

topmad

把信息量补全  把你想要做的东西 细节...都说清楚 才好看啊

原紫色天空的爱

topmad 发表于 2012-4-8 11:32

                               
登录/注册后可看大图

把信息量补全  把你想要做的东西 细节...都说清楚 才好看啊

恩，好的。
       !con1 是判断前一个是否降水的，con2统计没有降水的天数的
        !数组a是记录连续多少天没有降水出现的次数的
       program main
      implicit none
      integer i,j,k,l,m,n,con1,con2  
      integer::line=500
        real  year(50)
        real station(500,1)
        real  a(100)
       !读取资料
       open(10,file='d:\chengxu\yc\one.txt',status='old')
      
       do m=1,line
                 read(10,*) station(m,1)
         end do
         close(10)

        do j=1,100
         a(j)=0
        enddo


       open(20,file='d:\chengxu\yc\11.txt',status='replace')
       con1=0
         con2=1
      
          do n=1,line
        !判断当前一天是否将水
      if (station(n,1)<10) then
                con1=0
        else
            con1=1
        endif
       !前一天没有降水，判断第二天的降水情况
        if (station(n+1,1)<10.and.con1==0)then
         con2=con2+1
        elseif(station(n+1,1)>10.and.con1==0)then
         a(con2)=a(con2)+1
        !前一天有降水，判断第二天的降水情况
        elseif(station(n+1,1)<10.and.con1==1)then
        con2=1
        con1=1
        else(station(n+1,1)<10.and.con1==1)then
      con1=1
        con2=0
        endif
      end do

       
      write(20,*)(a(100),i=1,100)

       
      close(20)
        end

topmad

原紫色天空的爱 发表于 2012-4-8 13:11

                               
登录/注册后可看大图

恩，好的。
       !con1 是判断前一个是否降水的，con2统计没有降水的天数的
        !数组a是记录连续多少天 ...

我的意思是 你要统计什么

连续多少个10天没有降水 还是连续多少天没有降水 先把目的弄清楚 算法才能清晰

原紫色天空的爱

这个样子的统计，我做的前面两列的