parameter (lx=34,ly=30,nt=1776,nt1=25)
REAL T(lx,ly)
REAL T0(ly,lx),DT(lx,ly)
OPEN(UNIT=77,FILE='../data/sst/sstasm_1856-2003',
+ form='unformatted')
OPEN(UNIT=78,FILE='t.out',
+ form='unformatted')
OPEN(UNIT=79,FILE='ldeo5_1856-2003',
+ form = 'unformatted')
OPEN(UNIT=80,FILE='mod_ssta_nino34.dat')
OPEN(UNIT=81,FILE='obs_ssta_nino34.dat')
open(unit=82,file='ta_nino34.dat')
do 510 k=1,nt
write(*,*) k
read(77) t0 此行为报错的第17行
报错截图.png (16.07 KB, 下载次数: 237)
报错页面截图
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |