- 积分
- 594
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2016-9-29
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit'
'sdfopen e:\data\ncep\uwnd.mon.mean.nc'
'set grads off'
'set grid off'
'set lon 20 140'
'set lat 30 50'
'set lev 200'
'set t 1 432 '
'set xlint 20'
'set ylint 5'
'set cterp on'
'set clopts 1 5 0.12'
'set xlopts 1 5 0.16'
'set ylopts 1 5 0.16'
tt=1
'define i=0'
'define sum=0'
while(tt<=432)
'u=ave(uwnd,t='tt+7',t='tt+8')'
'sum=sum+u'
tt=tt+12
'i=i+1'
'aa=sum/i'
endwhile
'a=tloop(ave(aa,t=1,t=432,108))'
'b=ave(a,lon=80,lon=90)'
'set lon 90'
'set gxout shaded'
'set csmooth on'
'set cmin 60'
'd b'
'set gxout contour'
'set ccolor 15'
'set cthick 6'
'd b' |
|