求界限温度稳定通过初、终日的计算程序

tszhaoweiwen

用五日滑动平均求界限温度初、终日，用excel即可得出，但处理多年数据，工作量大，求相关程序，谢谢

我不's玩具

subroutine huadong(NW)
      implicit none
          integer,parameter::year=25,k=5!需要修改年和滑动次数
          integer i,j
          real NW(year),ave(year-k+1),totle
          do i=1,year-k+1
             totle=0
             do j=i,i+k-1
           totle=NW(j)+totle
         enddo
             ave(i)=totle/k
      enddo
     open(12,file='d:\huadong5.txt')
      write(12,100)(ave(i),i=1,year-K+1)
      close(12)
100 format(f5.2)          
  end subroutine
子程序

tszhaoweiwen

我不's玩具 发表于 2015-5-10 19:45
subroutine huadong(NW)
      implicit none
          integer,parameter::year=25,k=5!需要修改年和滑动次数
...

太好了 谢谢

nunu18

正需要计算积温初日，感谢楼主分享