- 积分
- 470
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-3-31
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit'
'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'
|
|