爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 4530|回复: 3

[求助] [求助] 求助,fortran已知怎么写入的数据,然后读数据出问题

[复制链接]

新浪微博达人勋

发表于 2019-7-3 11:57:25 | 显示全部楼层 |阅读模式

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

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

x
已经运行的fortran文件这样输出了     
open(100,file=trim(pathout)//trim(fname)//'-UV.grd',            
     *      form='unformatted',access='direct',recl=nx*ny*nest*6*4)           
      write(100,rec=1)lx,ly,real(un,4),real(vn,4),vtn,ang
        close(100)

然后我对着这些数据写了新的程序想要使用,读取方法出现了问题
1. open(100,file=trim(pathout)//trim(fname)//'-UV.grd',            
     *      form='unformatted',access='direct',recl=nx*ny*nest*6*4)           
      read(100,rec=1)lx,ly,real(un,4),real(vn,4),vtn,ang
        close(100)

2.open(100,file=trim(pathout)//trim(fname)//'-UV.grd',            
     *      form='unformatted',access='direct',recl=nx*ny*nest*6*4)            
      read(100,rec=1)(((lx(i,j,k),i=1,nx),j=1,ny),k=1,nest),
     *(((ly(i,j,k),i=1,nx),j=1,ny),k=1,nest),(((un(i,j,k),i=1,nx)
     *,j=1,ny),k=1,nest),(((vn(i,j,k),i=1,nx),j=1,ny),k=1,nest),
     *(((vtn(i,j,k),i=1,nx),j=1,ny),k=1,nest),(((ang(i,j,k),i=1,nx)
     *,j=1,ny),k=1,nest)
        close(100)
请问该怎么读
密码修改失败请联系微信:mofangbao

新浪微博达人勋

 楼主| 发表于 2019-7-3 13:42:17 | 显示全部楼层
{:eb303:}
密码修改失败请联系微信:mofangbao
回复

使用道具 举报

新浪微博达人勋

 楼主| 发表于 2019-7-4 20:20:26 | 显示全部楼层
{:eb315:}{:eb315:}
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

新浪微博达人勋

 楼主| 发表于 2019-7-4 22:03:17 | 显示全部楼层
{:5_275:}
密码修改失败请联系微信:mofangbao
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

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

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

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