- 积分
- 50
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-5-20
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2014-4-17 13:36:27
|
显示全部楼层
解决了。红色为改动的部分,改后风场能画出来。你试试
'reinit'
'open **.ctl'
'enable print **.gmf'
'set grads off'
'set grid off'
'set x 1'
'set y 1'
'set z 1 20'
lon1=111.5
lon2=114
lat1=23
lat2=22
'define alfa=atan2('lat2-lat1','lon2-lon1')'
lon=lon1
'collect 1 free'
'collect 2 free'
'collect 3 free'
'collect 4 free'
while(lon<=lon2)
lat=lat1+(lat2-lat1)*(lon-lon1)/(lon2-lon1)
'collect 1 gr2stn(dbz,'lon','lat')'
'collect 2 gr2stn((U*cos(alfa)),'lon','lat')'
'collect 3 gr2stn((V*sin(alfa)),'lon','lat')'
'collect 4 gr2stn(W,'lon','lat')'
lon=lon+0.02
endwhile
'set lon 111.5 114'
'set z 1 20'
'set gxout shaded'
'run C:\GrADS20\lib\radarcolor.gs'
'set clevs 5 10 15 20 25 30 35 40 45 50 55 60 65 70'
'set ccols 0 21 22 23 24 25 26 27 28 29 30 31 32 33 34'
'd coll2gr(1,20)'
'set gxout vector'
'set ccolor 1'
'set arrscl 0.35 15'
'd coll2gr(2,20)+coll2gr(3,20);coll2gr(4,20)'
'cbarn 1 1 9.8 4.39'
'print'
'disable print' |
|