将NC文件转存为GRD，方便Fortran和…

*直接下载的nc文件为28*19的格点数据，1948-2013年月数据
*实现的时间起始为1960年
*it=145
year=1960
while(year<=2013)
mon=1
while(mon<=12)
it=(year-1948)*12+mon
*while(it<793)
'reinit'
'sdfopen D:\NCEP\vapor\pr_wtr.mon.mean.nc'

'set dfile 1'
'set x 29 57'
'set y 43 60'
'set t 'it''
'define qs=pr_wtr'

'set gxout fwrite'

'set fwrite D:\QS\China_allVapor_'year'.'mon'_qs.grd'

'd qs'
'disable fwrite'
mon=mon+1
endwhile
year=year+1
endwhile
;