请选择 进入手机版 | 继续访问电脑版
爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 3048|回复: 0

[求助] 单个站点多时次数据用Fortran写入出错;求助各位,多谢!

[复制链接]

新浪微博达人勋

发表于 2017-7-14 21:21:44 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

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

站点多时次txt
QQ截图20170714213038.png
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表