爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 2146|回复: 1

[求助] gFortran读取.grd文件一直报错

[复制链接]

新浪微博达人勋

发表于 2022-11-7 20:40:23 | 显示全部楼层 |阅读模式

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

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

x
gfortran在读取一个用grads读取的.nc文件生成的.grd文件时,一直报错,无法读取,求求大佬们帮忙看一看这个是f90文件
program main
    implicit none
    integer,parameter::it=73,jt=144,lt=30
    integer i,j,l
    real u(it,jt,lt),ux(it,jt),us(it,jt)
    open(1,file='D:\fortran\qitong\u.grd',form='unformatted',access='stream')
    do l=1,lt
        read(1) ((u(i,j,l),i=1,it),j=1,jt)
    end do
    close(1)
    do j=1,jt
        do i=1,it
            ux(i,j)=0
            us(i,j)=0
        end do
    end do
    do j=1,jt
        do i=1,it
            do l=1,lt
                ux(i,j)=ux(i,j)+u(i,j,l)
            end do
            ux(i,j)=ux(i,j)/lt
        end do
    end do
    do j=1,jt
        do i=1,it
            do l=1,lt
                us(i,j)=us(i,j)+(u(i,j,l)-ux(i,j))**2
            end do
            us(i,j)=((1.0/lt)*us(i,j))**0.5
        end do
    end do
    open(2,file='d:\fortran\qitong\ux1.grd',access='stream',form='unformatted')
    write(2)((ux(i,j),i=1,it),j=1,jt)
    close(2)
    open(3,file='d:\fortran\qitong\us1.grd',access='stream',form='unformatted')
    write(3)((us(i,j),i=1,it),j=1,jt)
    close(3)
end program main


这是他报错的
[Running] cd "d:\fortran\qitong\" && gfortran u.f90 -o u && "d:\fortran\qitong\"u
At line 8 of file u.f90 (unit = 1, file = 'D:\fortran\qitong\u.grd')
Fortran runtime error: End of file

Error termination. Backtrace:

Could not print backtrace: libbacktrace could not find executable to open
#0  0xffffffff
#1  0xffffffff
#2  0xffffffff
#3  0xffffffff
#4  0xffffffff
#5  0xffffffff
#6  0xffffffff
#7  0xffffffff
#8  0xffffffff
#9  0xffffffff
#10  0xffffffff
#11  0xffffffff
#12  0xffffffff
#13  0xffffffff

[Done] exited with code=2 in 0.302 seconds



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

新浪微博达人勋

 楼主| 发表于 2022-11-7 21:28:05 | 显示全部楼层
朋友们,解决了,是文件长度出现了问题
密码修改失败请联系微信:mofangbao
回复 支持 反对

使用道具 举报

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

本版积分规则

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

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

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