很简单的程序，求月平均值，求各路大神帮帮忙！！

chenchen1992

数据格式是这样的，是一个台站1961到2010年50年的数据，要求每个月平均温度的均值。求各位大神帮帮忙！！给我一个思路也可以的！！

51053 4753  8612   5435 1961  1  1   -250（平均温度）   -225（最高温）   -273（最低温） 0 0 0
51053 4753  8612   5435 1961  1  2   -254   -209   -294 0 0 0
51053 4753  8612   5435 1961  1  3   -196   -159   -236 0 0 0
51053 4753  8612   5435 1961  1  4   -263   -205   -311 0 0 0
51053 4753  8612   5435 1961  1  5   -239   -197   -284 0 0 0
51053 4753  8612   5435 1961  1  6   -207   -182   -246 0 0 0
51053 4753  8612   5435 1961  1  7   -189   -158   -211 0 0 0
51053 4753  8612   5435 1961  1  8   -219   -164   -263 0 0 0
51053 4753  8612   5435 1961  1  9   -287   -243   -341 0 0 0
51053 4753  8612   5435 1961  1 10   -233   -187   -271 0 0 0
51053 4753  8612   5435 1961  1 11   -216   -185   -240 0 0 0
51053 4753  8612   5435 1961  1 12   -216   -178   -256 0 0 0
51053 4753  8612   5435 1961  1 13   -221   -189   -270 0 0 0
51053 4753  8612   5435 1961  1 14   -233   -194   -301 0 0 0
51053 4753  8612   5435 1961  1 15   -142   -101   -215 0 0 0
51053 4753  8612   5435 1961  1 16   -144   -116   -165 0 0 0
51053 4753  8612   5435 1961  1 17   -159   -118   -184 0 0 0
51053 4753  8612   5435 1961  1 18   -131   -101   -157 0 0 0
51053 4753  8612   5435 1961  1 19   -147    -97   -180 0 0 0
51053 4753  8612   5435 1961  1 20   -126    -83   -164 0 0 0
51053 4753  8612   5435 1961  1 21   -186   -104   -276 0 0 0
51053 4753  8612   5435 1961  1 22   -245   -172   -298 0 0 0
51053 4753  8612   5435 1961  1 23   -152   -108   -215 0 0 0
51053 4753  8612   5435 1961  1 24    -94    -71   -136 0 0 0
51053 4753  8612   5435 1961  1 25   -105    -79   -112 0 0 0
51053 4753  8612   5435 1961  1 26   -169   -106   -220 0 0 0
51053 4753  8612   5435 1961  1 27   -187   -147   -234 0 0 0
51053 4753  8612   5435 1961  1 28   -163    -91   -210 0 0 0
51053 4753  8612   5435 1961  1 29   -111    -40   -162 0 0 0
51053 4753  8612   5435 1961  1 30    -82    -56   -124 0 0 0
51053 4753  8612   5435 1961  1 31    -51     -1   -109 0 0 0
51053 4753  8612   5435 1961  2  1   -103    -16   -144 0 0 0
51053 4753  8612   5435 1961  2  2   -181   -110   -235 0 0 0
51053 4753  8612   5435 1961  2  3   -196   -120   -248 0 0 0
51053 4753  8612   5435 1961  2  4   -203   -153   -254 0 0 0
51053 4753  8612   5435 1961  2  5   -212   -155   -259 0 0 0
51053 4753  8612   5435 1961  2  6   -206   -144   -252 0 0 0

言深深

加起来，除以个数。
根据1,5,6分别确定站点，年，月，即某站某年某月，剩下来的就是将符合这一条件的，加到一起（设定计数器，确定一共加了多少个），然后除以计数器记下来的个数就ok了。

chenchen1992

言深深 发表于 2015-4-15 09:54
加起来，除以个数。
根据1,5,6分别确定站点，年，月，即某站某年某月，剩下来的就是将符合这一条件的，加 ...

我就是不知道怎么循环年月日，怎么确定。
这个是我简要的实验下的小程序，可能是逻辑上有问题，运行不出结果来~
program tem
implicit none
integer m,i
parameter(m=18262)
integer quzhan(m),lat(m),lon(m),h(m),year(m),mon(m),day(m),ptem(m),temax(m),temin(m),ptemk(m),temaxk(m),temink(m)
integer curyear,max1,max2,temax0
temax0=0
open(1,file='F:\chengxu\shuju\temxuanze\51053.txt')
400 format(i5,i5,i6,i7,i5,2i3,3i7,3i2)
do i=1,m
read(1,400) quzhan(i),lat(i),lon(i),h(i),year(i),mon(i),day(i),ptem(i),temax(m),temin(i),ptemk(i),temaxk(i),temink(i)
enddo
close(1)
do i=1,m
   curyear=1961
   if((year(i)==curyear).and.curyear<=2010) then
     if(mon(i)==1)  then
            max1=temax0+temax(i)
          else if(mon(i)==2) then
            max2=temax0+temax(i)
         endif
        endif
        curyear=curyear+1
enddo
print*,max1,max2
end

chenchen1992

言深深 发表于 2015-4-15 09:54
加起来，除以个数。
根据1,5,6分别确定站点，年，月，即某站某年某月，剩下来的就是将符合这一条件的，加 ...

我这个是想试试看前两个月的平均能不能算，所以写得不是很完整~

flowers940815

我也是在处理50年数据求平均上出现问题了，楼主解决这个问题了吗

李小二

大神，你现在有程序吗，就是50年的气温或是降水曲线变化，求年平均的

李小二

大神，你现在有程序吗，就是50年的气温或是降水曲线变化，求年平均的

皮皮皮皮皮皮

你好，请问你知道如何算2001-2020年6.7.8月份20年的平均吗，目前已经有每一年的平均了，但我太小白了，弄不出每个平均相加除20的平均，可以帮帮我吗