- 积分
- 6225
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-10-5
- 最后登录
- 1970-1-1

|
发表于 2014-3-10 21:32:10
|
显示全部楼层
附上gs文件,拜托各位大神帮忙看看a
'reinit'
'open d:\data\1000-200hPa0811-17q.ctl'
'enable print d:\data\35N113E-42N123E11-17q.gmf'
i=1
while(i<=28)
'set vpage 0 8 0 8'
'set parea 1 6 1 8'
'set grads off'
'set zlog on'
'set csmooth on'
'set x 1'
'set y 1'
'set lev 1000 200'
'set t 'i''
'set lon 80 150'
'set lat 0 70'
'define prs=lev'
'define tc=tmpprs-273.16'
'define es=(6.1078*exp((17.27*tc)/(tc+237.3)))'
'define e=rhprs/100*es'
'define q=(0.62197*e/(prs-e*0.378)*1000)'
'define qtu=ugrdprs*q/9.8'
'define qtv=vgrdprs*q/9.8'
'define div=(hdivg(qtu,qtv)*1e6)'
'define qt=mag(qtu,qtv)'
lon1=113.0
lon2=123.0
lat1=35.0
lat2=42.0
lon=lon1
'collect 1 free'
while(lon<=lon2)
lat=lat1+(lat2-lat1)*(lon-lon1)/(lon2-lon1)
'collect 1 gr2stn(qt,'lon','lat')'
lon=lon+1
endwhile
*'set lat 35 42'
'set lon 113 123'
'set z 1 19'
'set gxout shaded'
'set clevs 5 10 15 20 25 30 35'
'set ccols 0 4 5 3 7 8 2 6'
'd coll2gr(1,-u)'
'q time'
xx=subwrd(result,3)
'draw title 35N113E-42N123E QT VCS Field at 'xx''
'print'
'c'
i=i+1
endwhile
'disable print'
;
|
|