'reinit'
'set gxout fwrite'
'sdfopen j:\1\uwnd.mon.mean.nc'
'set fwrite d:\1\u8501.grd'
i=265
while(i<=756)
'set lev 850'
'set lat 5 15'
'set lon 100 130'
'set  t 'i''
'd uwnd'
say i
i=i+1
endwhile
'disable fwrite'
;