- 积分
- 80
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2016-4-15
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Program sta2grd
parameter(tt=19)
Character*8 stid
Real lon,lat,tim
real rain(tt)
integer nlev,flag,j
Open(1,file='C:\Users\Administrator\Desktop\Fortran\rain.txt',status='old')
read(1,*)
do j=1,tt
read(1,*)stid,lon,lat,rain(j)
end do
close(1)
open(2,file='C:\Users\Administrator\Desktop\Fortran\value.grd',status='replace',form='binary')
tim=0.0
nlev=1
flag=1
do j=1,tt
write(2)stid,lon,lat,tim,nlev,flag,rain(j)
enddo
nlev=0
write(2)stid,lon,lat,tim,nlev,flag
close(2)
end
|
-
站点多时次txt
-
|