- 积分
- 2419
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-1-28
- 最后登录
- 1970-1-1
|
发表于 2014-3-4 21:36:35
|
显示全部楼层
本帖最后由 sun_shine_Xia 于 2014-3-4 21:57 编辑
river 发表于 2014-3-1 21:25
没有,不过你可以利用这个2.5*2.5的资料插值成1*1的
LZ,我也用了你的这个方法去试着画了下,用的脚本就是你贴出来的画流场的那个,为什么他一直提示这个错误啊~~
脚本是下面这个:
'reinit'
'open F:\Data\EC_Data\W\wNDJ_Dtrend.ctl'
'open F:\Data\EC_Data\U\uNDJ_Dtrend.ctl'
'open F:\Data\EC_Data\V\vNDJ_Dtrend.ctl'
'open F:\Data\Topography\orog.ctl'
'set grads off'
'set grid off'
'set zlog on'
lon1=70.0
lon2=130.0
lat1=35.0
lat2=45.0
'define alfa=atan2('lat2-lat1','lon2-lon1')'
'set x 1'
'set y 1'
'set lev 1000 100'
'set t 1'
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.2*cos(alfa)+v.3*sin(alfa),'lon','lat')'
'collect 3 gr2stn(orog.4(t=1),'lon','lat')'
lon=lon+1
endwhile
'set lon 70 130'
'set lev 1000 100'
'set ylevs 1000 925 850 700 600 500 400 300 200 100'
'set xlabs 35N,70E|37N,82E|39N,94E|41N,106E|43N,118E|45N,130E'
'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 (35N,70E) to (45N,130E)'
'printim F:\Cop_Zonal-vertical\anypoumian2.png white'
say 'ok'
;
|
|