- 积分
- 201
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-17
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2012-8-22 18:33:01
|
显示全部楼层
本帖最后由 realzly 于 2012-8-22 18:36 编辑
这是fortran程序:就是清风给的程序
program skjs
implicit none
real lon,lat,rain,var,tim
integer nlev,flag
character*8 stid(160)
tim=0.0
nlev=1
flag=1
open(1,file='E:\rain\sk\raindata.txt',status='old')
open(2,file='E:\rain\sk\raindata.grd',status='replace'
&,form='binary')
read(1,*)
read(1,*)
10 read(1,*,end=100)stid,lon,lat,var,rain
write(2)stid,lat,lon,tim,nlev,flag,rain
goto 10
100 continue
close(1)
nlev=0
write(2)stid,lat,lon,tim,nlev,flag
close(2)
end
这是ctl:
DSET e:/rain/sk/raindata.grd
DTYPE station
stnmap e:/rain/sk/raindata.map
UNDEF -32766
TDEF 1 linear 00z27JUL2012 12hr
VARS 1
RAIN 0 99 RAINFALL DATA
ENDVARS
望大侠们给予指点!
|
|