- 积分
- 5692
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-26
- 最后登录
- 1970-1-1

|
发表于 2013-8-20 21:07:13
|
显示全部楼层
'open d:\data\062400.ctl'
'set parea 1 10 1 7'
'set grads off'
'set grid off'
'set poli on'
'set xlopts 1 3 0.25'
'set ylopts 1 3 0.25'
'set clopts -1 -1 0.15'
'set lon 80 120'
'set lat 10 50'
'set lev 700'
'set xlevs 60 70 80 90 100 110 120 130 140'
'set gxout shaded'
'define ea=rhprs*pow(10,(0.9875+0.03477*(tmpprs-273.15))/(1.0+0.00412*(tmpprs-273.15)))'
'define qa=0.662*ea/(hgtprs-0.378*ea)*1000/60'
'd qa'
'run cnbarn.gs'
'set gxout contour'
'd qa'
'set gxout stream'
'set strmden 4'
'd ugrdprs;vgrdprs'
'printim d:\062400qa.png white'
'reinit'
我的这个貌似没有太复杂哦 |
|