- 积分
- 23031
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-6-10
- 最后登录
- 1970-1-1
|
发表于 2014-6-4 20:13:26
|
显示全部楼层
我按照楼主的设置改了一下,但还是出现了一些问题,显示minloc错误,不知什么原因,求教
'reinit'
'!rm d:/wrfout/weizhi-w.txt'
'open d:/wrfout/test_d01_10_19.ctl'
i=1
while (i<17)
'set t ' i
t=subwrd(result,4)
tc=substr(t,8,5)
'd slp'
'define xx=minloc(min(slp,lat=16,lat=26),lon=112,lon=124)'
'define yy=minloc(min(slp,lon=112,lon=124),at=16,lat=26)'
'd xx'
xx=subwrd(result,4)
'd yy'
yy=subwrd(result,4)
'q gr2w 'locxx' 'locyy
x=subwrd(result,3)
y=subwrd(result,6)
rc=write('d:/wrfout/weizhi-w.txt',x ' 'y ' ' tc,append)
say rc
i=i+1
endwhile
close('weizhi-w.txt')
'!cp weizhi-w.txt weizhi-r.txt' |
|