|
|
发表于 2011-6-27 22:32:28
|
显示全部楼层
zhaolanxiai 发表于 2011-6-27 21:28
我运行第一步:站点资料(txt格式,即十进制格式)转成二进制格式的时候,显示下面的图片
谢谢你的关注,你是fortran 4.0吧 我试了一下,果然是有点问题的,等楼主有时间可以测试下哈,我稍微修改了一下:
- program main
- real,dimension(160)::lat,lon,ind
- character*8 stid(160)
- open(1,file='d:\drought\index.txt',status='old')
- do i=1,160
- read(1,*) lat(i),lon(i),ind(i)
- enddo
- close(1)
- do i=1,160
- stid(i)=char(i)
- enddo
- open(3,file='e:\drought\index.grd',form='binary')
- tim=0.0
- nlev=1
- nflag=1
- do i=1,160
- write(3) stid(i),lat(i),lon(i),tim,nlev,nflag,ind(i)
- enddo
- nlev=0
- write(3) stid(i-1),lat(i-1),lon(i-1),tim,nlev,nflag
- close(3)
复制代码
|
|