- 积分
- 332
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-11-2
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 心动勿行动 于 2015-2-9 21:21 编辑
大家好,请问有人画过湿Q矢量吗?本人grads新手,想用湿Q矢量诊断暴雨。但是不知道怎么做,下面的程序是从一位同事那里获得的Q矢量散度的一个粗略的计算方法,但是500hpa画出来的都是0,700hpa和850hpa都是没有值,无法画,请众位大神指教,如果有低级错误,还请轻拍,楼主妹纸,打击太大就直接上天台去了。。。
'reinit'
'open d:\macc\NCEP\fnl_20070918_12_00.ctl'
'enable print d:\macc\NCEP\gsprint\070918_q_850hpa.gmf'
'set grads off'
'set grid off'
'set mpdset cnworld'
'set lev 850'
'f=2*7.292*sin(lat*3.14159/180)'
*'du=cdiff(ugrdprs*cos(lat*3.14159/180),y)'
*'dv=cdiff(vgrdprs,x)'
'du=ugrdprs(z-1)-ugrdprs(z+1)'
'dv=vgrdprs(z-1)-vgrdprs(z+1)'
'dp=100*(lev(z-1)-lev(z+1))'
'dx=cdiff(lon,x)*3.14159/180'
'dy=cdiff(lat,y)*3.14159/180'
'aa=du/dx'
'aa1=dv/dp'
'bb=dv/dx'
'bb1=du/dp'
'qx=f*(aa*aa1-bb*bb1)'
'aa2=du/dy'
'aa3=dv/dp'
'bb2=dv/dy'
'bb3=du/dp'
'qy=f*(aa2*aa3-bb2*bb3)'
'define qdiv=hdivg(qx,qy)*1e6'
'set gxout contour'
'set lon 115 125'
'set lat 22 36'
'run cbarn.gs'
'set ccolor 1'
'set cint 2'
'set clskip 1'
'set clopts -1 -1 0.11'
'print'
'disable print'
|
|