- 积分
- 927
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-26
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2013-9-13 10:08:16
|
显示全部楼层
非常感谢你,按照你的方法确实可以实现,但是对于单个文件结果是对的,对于多个文件确是错的,gs如下
'reinit'
'open W:/work1/fnl_201007.ctl'
*'set gxout fwrite'
*'set fwrite W:/work1/ss.grd'
**---------循环-----------
i=1
while(i<2)
aa=read('W:/work1/rain/jg2007.txt')
aa1=sublin(aa,2)
station=subwrd(aa1,1)
say station
lonn=subwrd(aa1,2)
say lon
latn=subwrd(aa1,3)
say lat
rain=subwrd(aa1,5)
res=subwrd(aa1,4)
say res
year=substr(res,9,12)
say year
month=substr(res,6,3)
say month
day=substr(res,4,2)
say day
hour=substr(res,1,2)
say hour
tt=1
'set grads off'
'set grid off'
'set xlopts 1 8 0.25'
'set ylopts 1 8 0.25'
'set clopts 1 8 0.25'
'set cthick 16'
'set mpdset cnworld'
while(tt<41)
'set t 'res''
'set lat 'latn''
'set lon 'lonn''
'grads2ascii VVELprs W:/work1/rain/w.txt a %g 1'
tt=tt+1
endwhile
i=i+1
endwhile
ff=close('W:/work1/rain/jg2007.txt')
return
;
|
|