假相当位温的gs

leikunjiang

关键问题，公式是不是正确的

流水2012

嗯，不错哦，

青衣

感谢楼主，正需要中

dafengche

g感谢楼主分享，正要用呢

Ｏrz

楼猪贴出来啊

陈述句。。。

感谢楼主分享~~~

Ｏrz

'reinit'
'open D:\2014\fnl.ctl'
'set grid off'
'set grads off'
'set t 9 '
'set lat 10 35'
'set lon 100 140'
'set lev 1000 100'
*'set display color white'
*'c'
'set zlog on'
'set ylint 100'
'set xlint 2'
'set clopts -1 -1 0.14'
*'set xlopts 1 4 0.14'
*'set ylopts 1 4 0.14'  
'set csmooth on'
'define div=hdivg(ugrdprs,vgrdprs)*100000'
'define vor=hcurl(UGRDprs,VGRDprs)*100000'

'define tmp=TMPprs'
'define rh=RHprs'
'define prs=lev'
'define es=(6.112*exp(17.67*(tmp-273.15)/(tmp-29.65)))'
'define q=rh*(0.62197*es/(prs-es))/100.'
'define e=prs*q/(0.62197+q)+1e-10'
'define tlcl=55.0+2840.0/(3.5*log(tmp)-log(e)-4.805)'
'define theta=tmp*pow((1000/prs),(0.2854*(1.0-0.28*q)))'
'define eqt=theta*exp(((3376./tlcl)-2.54)*q*(1.0+0.81*q))'
'set lat 15'
'set lon 100 140'
'set t 9'
'set grads off'
*'set gxout shaded'
*'set cmax 0'
*'d vor'
'set gxout contour'
'set cint 8'
'set clopts -1 -1  0.12'
'd theta'
*'cbarn'
* 'printim d:\2014\theta_1620.png white'
;

wuxiao

先试试！谢谢分享

wuxiao

先试试！谢谢分享

dzn

帖子很棒，正好用到，谢谢分享！