- 积分
- 147
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-4-29
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 heyufei 于 2014-6-9 22:07 编辑
[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\863705527\QQ\WinTemp\RichOle\G`7YI7(G[A{$)912ZU$9A[F.jpg[/img]'reinit'
'open E:\aa\fnll\fnl_201307.ctl'
'enable print E:\aa\fnll\0706850.jpg'
'set z 1 20'
'set zlog on'
'set lon 80 130'
'set lat 10 60'
'define tc=tmpprs-273.15'
'define rh=rhprs'
'define prs=lev'
'define es=(6.112*exp((17.67*tc)/(tc+243.5)))'
'define qs=0.62197*es/(prs-0.378*es)'
'define q=rh*qs/100'
'define e=prs*q/(0.62197+q)+1e-10'
'define tlcl=55.0+2840.0/(3.5*log(tc+273.16)-log(e)-4.805)'
'define theta=(tc+273.16)*pow((1000/prs),(0.2854*(1.0-0.28*q)))'
'define eqt=theta*exp(((3376./tlcl)-2.54)*q*(1.0+0.81*q))'
'define u=UGRDprs'
'define v=VGRDprs'
'define vo=hcurl(u,v)'
'define f=2*7.292*sin(lat*3.14159/180.0)*0.00001'
'define g=9.8'
'define dp=100*(lev(z-1)-lev(z+1))'
'define deqt=eqt(z-1)-eqt(z+1)'
'define du=u(z-1)-u(z+1)'
'define dv=u(z-1)-u(z+1)'
'define dx=2.0*6370949.0*cos(lat*3.14159/180.0)*3.14159/180.0'
'define dy=2.0*6370949.0*3.14159/180.0'
'define dtx=cdiff(eqt,x)'
'define dty=cdiff(eqt,y)'
'define pv1=-g*(vo+f)*deqt/dp'
'define pv2=g*((dv/dp)*(dtx/dx)-(du/dp)*(dty/dy))'
'define pv=pv1+pv2'
'set xyrev on'
'set parea 2 7 3 7'
'set lon 114'
'set lat 30'
'set t 1 10'
'set grid off'
'set grads off'
'set zlog off'
'set gxout contour'
'set csmooth on'
'set cthick 7'
'set cint 0.3'
'd pv*10e5'
*'d pv2*10e6'
*'d pv*10e5'
'printim E:\aa\fnll\0706850.jpg white'
'reinit'
到底是哪里不对啊
|
-
|