累积距平代码

lgg00828 · 发表于 2014-1-10 20:10:43

Yangtzeriver 发表于 2013-6-9 20:05

登录/注册后可看大图

我检验了一下，结果确实的只是距平序列哦。问题在y(i,j)=y(i,j)+x(i,j)这里，需要稍微修改一下，得到的就是 ...

怎么改呢，我的数据是每年一个温度平均值，共50年，怎么算才是累积距平呢？

zl.87625 · 发表于 2014-1-12 09:58:01

   program main
   parameter(n=53)
   integer i
   real x(n),y(n)
   real s

   !!!!!!! 读入距平的数据!!!!!!!
   open(11,file='53a-678ave-ssta.grd',form='binary')
   read(11)(x(i),i=1,n)
   close(11)
   print *,x

   !!!!!!!!!!!!! 计算累积距平  y(i)!!!!!!!!!!!!
   s=0
   do i=1,n
   s=s+x(i)
y(i)=s
   enddo
   print *,y

   open(11,file='58238-678ave-leijijuping-2.grd',form='binary')
   write(11)(y(i),i=1,n)
   close(11)

   end

cjycmbj · 发表于 2014-11-1 16:49:07

精彩！

wanghao · 发表于 2014-11-1 22:57:06

十分感谢
十分感谢
十分感谢
十分感谢

jucyjucy · 发表于 2015-3-18 21:03:46

感谢楼主的分享~~~~~

jucyjucy · 发表于 2015-3-18 21:04:02

感谢楼主的分享~~~~~

舞动墨迹小黄人 · 发表于 2016-5-22 17:04:18

★冷霜子★ 发表于 2012-5-5 17:30
我是气象新手不会FORTRAN，正在学习，只是看到这个程序就找朋友帮忙做了一下，朋友回只是他没什么时间 ...

我输出的y的最后一项也不是0

，你是怎么改的呀

流浪的心 · 发表于 2017-7-24 16:08:07

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

[源代码] 累积距平代码

浏览过的版块