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

气象家园

 找回密码
 立即注册

新浪微博登陆

只需一步, 快速开始

QQ登录

只需一步,快速开始

搜索
查看: 221|回复: 0

[求助] 报错run-time error F6103: Read(D:\grads\year\1987\1987P01.dat) invalid real

[复制链接] |关注本帖

新浪微博达人勋

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

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

x
这个错求大神解决啊

program main
implicit none
integer,parameter::dy=365,nfile=16
real,parameter::a=28.5,b=23.5,c=33.5
real,dimension(nfile,dy)::var
real,dimension(dy)::u,v,g,m,n,h
integer x,y,l

character*200 filename

open(11,file='D:\grads\Year\1987\input.txt',access='sequential',status='old')
do 10 x=1,nfile,1
        read(11,*) filename
        open(12,file=filename,access='sequential',status='old')
        read(12,*) (var(x,y),y = 1,dy)
!        print *,var       
10 continue
close(12)
close(11)
end program main


Cache_-79976145ae831ae5..jpg
密码修改失败请联系qq:937062711
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

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

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

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