- 积分
- 38418
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-6-20
- 最后登录
- 1970-1-1
![[言之深深] 粉丝数:128 微博数:2073 新浪微博达人勋](source/plugin/sina_login/img/light.png)
成长值: 0
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - parameter(m=6400)
- real x(m,14),r(160,40)
- !原始文件存储方式为6400行(站*年),14列(经纬度+12个月)
- open(1,file="STATION_RALL.TXT")
- do i=1,m
- read(1,"(2i6,12f6.1)") (x(i,j),j=1,14)
- enddo
- close(1)
- !此处用来处理年平均,如果不需要可以直接去掉,将改成赋值语句,从而实现分离成月
- do i=1,160
- do j=1,40
- s=0.
- do k=3,14
- s=s+x((i-1)*40+j,k)
- enddo
- r(i,j)=s
- enddo
- enddo
- !写入文件,40行(年),160列(站)
- open(2,file="rain.txt")
- do j=1,40
- write(2,"(i8,160f10.1)") j+1950,(r(i,j),i=1,160)
- enddo
- close(2)
- end
|
评分
-
查看全部评分
|