- 积分
- 15959
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-10
- 最后登录
- 1970-1-1
|
发表于 2015-4-11 15:09:10
|
显示全部楼层
'reinit'
'open D:\laoshu\fnl2014.ctl'
'open d:\2013Grads\gs\surface_elevation\dz.ctl'
'set grads off'
'set grid off'
'set csmooth on'
'set map 15 1 9'
'set parea 0.8 10.8 0.8 7.9'
'set xlopts 1 6 0.14'
'set ylopts 1 6 0.14'
'set font 0'
'set lev 1000 100'
'set time 20Z10MAY2014'
*---------计算假相当位温------------
'define br=(0.1158*log(rhprs)-1.5332787)*tmpprs-789.92816'
'define cr=789.92816*tmpprs'
'define tc2=(-br-sqrt(br*br-4*cr))/2.0'
'define pc2=lev*pow(tc2/tmpprs,3.5005574)'
'define etc2=6.1078*pow(273.16/tc2,5.1347779)*exp(3148.0973*(tc2-273.16)/(126.06334*tc2))'
'define wc2=0.622*etc2/(pc2-etc2)'
'define ed2=tc2*pow(1000.0/(pc2-etc2),0.28765924)'
'define lc2=2500.79-2.3697*(tc2-273.16)'
'define eqt=ed2*exp(wc2*lc2/1.0048/tc2)'
*---------输出地形------------
'set strsiz 0.2'
'set xlopts 1 4 0.15'
'set ylopts 1 4 0.15'
'set grads off'
'set grid off'
'set dfile 2'
'set lat 30 '
'set lon 70 140'
'set t 1'
'set z 1 12'
*'set zlog on'
'set gxout shaded'
'set cint 8000'
'set rgb 18 125 125 125'
'set csmooth on'
'set rbcols 1'
'set cmax 0'
'define zz=dz.2'
'd zz'
*---------输出图形------------
'set lat 30'
'set lon 70 140 '
'set gxout contour'
'set ccolor 1'
'set cthick 6'
'set clskip 1'
'set cint 3'
'd eqt'
'printim D:\0.gif white'
不知道你能不能用得上? |
|