- 积分
- 248
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-3-12
- 最后登录
- 1970-1-1

|
发表于 2014-4-7 17:15:47
|
显示全部楼层
'reinit'
'open G:\2007\swv2007073006\0.ctl'
'set gxout fwrite'
'set fwrite G:\composite\euler\SWV36h\6.dat'
i=1
while(i<=9)
'set t ' i
'set lon 50 160'
'set lat 0 70'
'set lev 1000'
'd HGTprs'
'set lev 975'
'd HGTprs'
'set lev 950'
'd HGTprs'
'set lev 925'
'd HGTprs'
'set lev 900'
'd HGTprs'
'set lev 850'
'd HGTprs'
'set lev 800'
'd HGTprs'
'set lev 750'
'd HGTprs'
'set lev 700'
'd HGTprs'
'set lev 650'
'd HGTprs'
'set lev 600'
'd HGTprs'
'set lev 550'
'd HGTprs'
'set lev 500'
'd HGTprs'
'set lev 450'
'd HGTprs'
'set lev 400'
'd HGTprs'
'set lev 350'
'd HGTprs'
'set lev 300'
'd HGTprs'
'set lev 250'
'd HGTprs'
'set lev 200'
'd HGTprs'
'set lev 150'
'd HGTprs'
'set lev 100'
'd HGTprs'
i=i+1
endwhile
'disable fwrite'
'reinit'
这是提取某个变量的gs,你可以参照一下,自己再写一个ctl就可以调用了 |
|