- 积分
- 1985
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-3-12
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2016-11-2 15:20:10
|
显示全部楼层
我用的gs就是仿着river的任意剖面
'reinit'
'open E:\wrfout-0712-d02\1010-gfs-20-20\p-axis\gfs-2020.ctl'
'set grid off'
'set grads off'
*'set zlog on'
lon1=114
lon2=116
lat1=30
lat2=32
alfa=math_atan2(lat2-lat1,lon2-lon1)
*say alfa
'set x 1'
'set y 1'
'set lev 1000 300'
'set t 1'
ln=lon1
'collect 1 free'
'collect 2 free'
while(ln<=lon2)
lt=lat1+(lat2-lat1)*(ln-lon1)/(lon2-lon1)
'collect 1 gr2stn(-w*100,'ln','lt')'
'collect 2 gr2stn(u*cos('alfa')+v*sin('alfa'),'ln','lt')'
ln=ln+0.06
endwhile
say 'ok...'
'set lon 114 116'
'set ylevs 1000 850 700 600 500 400 300'
'set csmooth on'
'set clab off'
'set gxout barb'
'd coll2gr(2,-u)*2.5;coll2gr(1,-u)*2.5' |
|