请各位大神看看哪里出了问题

淡定冷静

'reinit'
n=1
while(n<=2)
parap1=read('d:/time.txt')
parap=sublin(parap1,2)
say parap
year=subwrd(parap,2)
month=subwrd(parap,3)
day=subwrd(parap,4)
'open d:/fnlex00/00/1/fnl_'year''month''day'_00_00.ctl'
'set lon 70 140'
'set lat 25 60'
'set grads off'
'set grid off'
'set map 15'
'set lev 850'
'set gxout shaded'
'd RHclm'
'cbar'
'set gxout barb'
'd UGRDprs;VGRDprs'
'set gxout contour'
'set ccolor 0'
'set strmden 10'
'set lev 500'
'd hgtprs'
'q w2xy 114 38'
x1=subwrd(result,3)
y1=subwrd(result,6)
'set string 1 c 10 0'
'set strsiz 0.2'
'draw string 'x1' 'y1' s'
'printim d:/fnlex00/00/1/fnl_'year''month''day'.png white'
'c'
n=n+1
endwhile
ff=close('d:/time.txt')
;


来自群组: 南气院校友总会

淡定冷静

就是ctl为啥打不开呢？
去掉sublin及say那两行，虽然程序不报错，但生成的两张图片都是一样的

爱到花开

你确定grads能读txt文件吗？这里read和Fortran里面的read一样吗？

淡定冷静

确定，我已经解决问题了