- 积分
- 5
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-8-17
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2015-8-17 15:33:05
|
显示全部楼层
parameter(x=65)
dimension jd(x),wd(x),r(x,4)
character*8 stid
real nlev,tim,nflag
open(1,file='D:\雨量统计\20100101-20101231小时雨量合计\2010.txt')
do i=1,65
read(1,*) jd(i),wd(i),(r(i,j),j=1,2)
enddo
close(1)
open(12,file='d:\test\2010.grd',form='binary')
stid='zhandian'
tim=0
nlev=1
nflag=1
do i=1,65
write(12) stid,wd(i),jd(i),tim,nlev,nflag,(r(i,j),j=1,2)
enddo
nlev=0
write(12) stid,wd(i-1),jd(i-1),tim,nlev,nflag
close(12)
end
请问这个将站点数据转换为grads数据哪里不对呢。。。。求帮助 谢谢啦 |
|