- 积分
- 30
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-10-17
- 最后登录
- 1970-1-1
|
发表于 2013-10-22 21:15:51
|
显示全部楼层
2013-10-22
.xiaoyuyly: 关于你在“[已解决]grads对fnl资料绘制湿位涡,出现点问题,求高手指点”的帖子
你好,我纠结湿位涡垂直剖面好几天了,一直出不来图,后来找到了你的这段程序,我就copy过去,把时间行去掉,结果还是不出来啊,请问是什么原因?请你帮我看看程序好吗?非常非常非常感谢
'reinit'
'open E:\2012\ncep\20130823\2013082412.ctl'
'set lon 90 120'
'set lat 10 40'
'set lev 1000 100'
'set z 2 20'
'set zlog on'
*假相当位温**
'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 lon 95.5'
'set lat 18 32'
'set mpdset yunnan'
'set map 1 1 6'
'set grid off'
'set grads off'
'set gxout contour'
'set csmooth on'
'set cthick 7'
*'set clopts -1 -1 0.10'
'd pv1*10e5'
*'d pv2*10e6'
*'d pv*10e5'
'printim e:\2012\ncep\20130823\2013082412swo.gif gif x800 y600 white'
'enable print e:\2012\ncep\20130823\2013082412swo.gmf'
'print'
'disable priint'
错误提示:
E:\2012\ncep\20130823\QQ图片20131022210849.jpg
|
|