| 
 
	积分470贡献 精华在线时间 小时注册时间2012-3-31最后登录1970-1-1 
 | 
 
| 
'reinit'
x
登录后查看更多精彩内容~您需要 登录 才可以下载或查看,没有帐号?立即注册 
  'open f:\data\grib.ctl'
 'set grads off'
 'set grid off'
 'set font 1'
 'set mpdset hires'
 'set xlint 1'
 'set ylint 100'
 'set xlopts 1 4 0.18'
 'set ylopts 1 4 0.18'
 'set clopts 1 -1 0.15'
 'set cint 0.2'
 
 'set lon 60 180'
 'set lat 20 70'
 'set lev 1000 100'
 
 ***气温
 'define tmp=TMPprs'
 ***相对湿度
 'define rh=RHprs'
 ***比湿
 'define q=SPFHprs'
 'define prs=lev'
 
 'define e1=17.67*(tmp-273.16)/(tmp-29.65)'
 'define es=6.112*exp(e1)'
 'define qs=0.62197*es/(prs-0.378*es)'
 *'define rh=q/qs*100.'
 'define e=prs*q/(0.62197+q)+1e-10'
 'define tk=55.0+2840.0/(3.5*log(tmp)-log(e)-4.805)'
 'define pot=tmp*pow((1000/prs),(0.2854*(1.0-0.28*q)))'
 'define eqt=pot*exp(((3376./tk)-2.54)*q*(1.0+0.81*q))'
 
 'set lat 50'
 'set clab on'
 'set zlog on'
 'set clskip 2'
 'set cint 0.2'
 'set ccolor 1'
 'set cthick 6'
 'set lon 145 151'
 'set lev 975 300'
 
 *'d pot'
 'd eqt'
 
 | 
 |