- 积分
- 9000
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-3-14
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 亽小笨蜑■ɑ 于 2014-6-26 23:16 编辑
WRF模拟结果经过ARWPOST后处理后,想画任意两点间斜剖面的垂直气流,看到论坛的帖子,学习后,画了两张图,贴出脚本和图,图中有一大块蓝色,是地形的影响吗?求高手指点。。。画图过程中一直报错。。说超出文件限制
'reinit'
'open F:\data\test.ctl'
'set grads off'
'set grid off'
'set zlog off'
lon1=106
lon2=126
lat1=21.0
lat2=41.0
'define alfa=atan2('lat2-lat1','lon2-lon1')'
'set x 1'
'set y 1'
'set lev 1000 100'
'set t 40'
lon=lon1
'collect 1 free'
'collect 2 free'
'collect 3 free'
while(lon<=lon2)
lat=lat1+(lat2-lat1)*(lon-lon1)/(lon2-lon1)
'collect 1 gr2stn(w.1*100,'lon','lat')'
'collect 2 gr2stn(u*cos(alfa)+v*sin(alfa),'lon','lat')'
'collect 3 gr2stn(hgt(t=40),'lon','lat')'
lon=lon+1
endwhile
'set lon 106 126'
'set lev 1000 100'
'set ylevs 1000 925 850 700 600 500 400 300 200 100'
'set xlabs 41N,106E|37N,110E|33N,114E|29N,118E|25N,122E|21N,126E'
'set gxout shaded'
'set csmooth on'
'set clab off'
'set clevs 0'
'set ccols 0 5 0'
'd coll2gr(3,-u)'
'set gxout stream'
'set clab on'
'd maskout(coll2gr(2,-u),-coll2gr(3,-u));maskout(coll2gr(1,-u),-coll2gr(3,-u));mag(coll2gr(2,-u),coll2gr(1,-u))'
'draw title along (41N,106E) to (21N,126E)'
'printim F:\data\2013.10.05.18.png x1000 y800 white'
'c'
;
|
-
set zlog off
-
set zlog on
-
报错
|