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

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 959|回复: 3

[求助] 结果怎么会这样?

[复制链接]

新浪微博达人勋

发表于 2015-4-20 13:50:40 | 显示全部楼层 |阅读模式

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

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

x
有一个rain.ch文件,内容如下:
Year     Month     Stid    Lat     Lon     Rianfall
1980        1      qqq    34.3    -85.5     123.3
1980        1      rrr    44.2    -84.5      87.1
1980        1      sss    22.4    -83.5     412.8
1980        1      ttt    33.4    -82.5      23.3

运行FORTRAN程序

      character*8 stid
      open(8,name='rain.ch',status='old')
      open(10,name='rain.dat',form='unformatted')
      iflag=0
10    read(8,9000,end=90)iyear,imonth,stid,rlat,rlon,rval
9000  format(I4,3x,I2,2x,A8,3F8.1)
      if(iflag.eq.0)then
        iflag=1
        iyrold=iyear
        imnold=imonth
      endif
      if(iyrold.ne.iyear.or.imnold.ne.imonth)then
         nlev=0
         write(10)stid,rlat,rlon,tim,nlev,nflag
      endif
      iyrold=iyear
      imnold=imonth
      tim=0.0
      nlev=1
      nflag=1
      write(10)stid,rlat,rlon,tim,nlev,nflag
      write(10)rval
      goto 10
90    continue
      nlev=0
      write(10)stid,rlat,rlon,tim,nlev,nflag
      stop
end

结果是这样的
QQ图片20150420135325.jpg


不知道为什么 ,求解答。



密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-4-20 14:04:20 | 显示全部楼层
先空读一行,去掉表头
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2015-4-20 14:13:37 | 显示全部楼层
lqouc 发表于 2015-4-20 14:04
先空读一行,去掉表头

意思是把这一行Year     Month     Stid    Lat     Lon     Rianfall去掉么?
还是不行。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2015-4-20 14:20:41 | 显示全部楼层
默认了FORTRAN的 I-N规则
你要先定义一下你的各各变量的类型
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

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

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

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