- 积分
- 387
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-7-3
- 最后登录
- 1970-1-1

|
发表于 2012-9-7 20:56:21
|
显示全部楼层
版主您好, 我用您的方法来处理从国家气候中心下载的1954年1月-2012年7的月降水数据, 第3步出现了问题, 能帮我诊断一下吗?
代码如下:
program ex00
implicit none
integer nlev,nflag,i,j
real lat(160),lon(160),tim,sd(160)
character*8 stid(160)
tim=0.0
nflag=1
open(10,file='61year_160id.txt')
open(20,file='160_sd_1951_2011.txt')
open(30,file='160_sd_1951_2011.grd',form='binary')
do i=1,160
read(10,*) stid(i),lat(i),lon(i)
enddo
close(10)
do i=1,739
nlev=1
do j=1,160
read(20,*) sd(j)
write(30) stid(j),lat(j),lon(j),tim,nlev,nflag,sd(j)
enddo
nlev=0
write(30) stid(160),lat(160),lon(160),tim,nlev,nflag
write(*,*) "Finish writting:",i
enddo
close(20)
close(30)
end
运行结果如下:
|
|