'reinit'
*
'sdfopen F:/ncdata/sep/monthly/SEP850-200uv.nc'
'enable print F:/typhoon/sep850/uv850.gmf'
'set grads off'
'set grid on'
'set vpage 0 11 0 8.5'
*--------------------------------------
*--------------------------------------
'set parea 3.5 10.7 5.0 8.4'
'set dfile 1'
'set grads off'
'set map 5 1 4'
'set lat 0 35'
'set lon 90 180'
'set lev 850'
'define ua850=ave(u*3.6,t=1,t=35)'
'define va850=ave(v*3.6,t=1,t=35)'
'set t 35'
'define us850=u*3.6'
'define vs850=v*3.6'
'set xlab on'
'set ylab on'
'set ylint 5'
'set xlint 10'
'set xlopts 1 5 0.18'
'set ylopts 1 5 0.18'
'set cthick 4'
'set arrscl 0.5 40'
'd skip(us850,20,20);skip(vs850,20,20)'
'set strsiz 0.18 0.17'
'set string 3 c 6'
'draw string 10 8.1 SEP2013'
*---------------------------------------------
'set parea 3.5 10.7 0.8 4.2'
'set dfile 1'
'set grads off'
'set map 5 1 4'
'set lat 0 35'
'set lon 90 180'
'set lev 850'
'define ua850=ave(u*3.6,t=1,t=35)'
'define va850=ave(v*3.6,t=1,t=35)'
'set t 35'
'define us850=u*3.6'
'define vs850=v*3.6'
'set xlab on'
'set ylab on'
'set ylint 5'
'set xlint 10'
'set xlopts 1 5 0.18'
'set ylopts 1 5 0.18'
'set cthick 4'
'set arrscl 0.5 40'
'd skip(ua850,20,20);skip(va850,20,20)'
'set strsiz 0.18 0.17'
'set string 3 c 6'
'draw string 10 3.9 SEP-AVE'
*---------------------------------------------
'print'
'printim F:/typhoon/sep850/uv850.jpg white x1100 y850'
'disable print'