- 积分
- 301
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-4-17
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 .雾霭流岚 于 2013-5-12 22:40 编辑
我用isen脚本画等熵位涡,总是画不出图,不知是哪错了,请各位高手指点!
画的是两个等熵面350K和310K
grads错误:cannot contourgrid - all undefined values
ctl是fnl批处理得到的
gs:(function后的是脚本,直接粘贴的)
'reinit'
'open D:\date\bolaven\fnl_20120825_12_00_c.ctl'
'set lon 100 160'
'set lat 10 70'
'set t 16'
'set lev 900 100'
'set mpdset mres'
'set grid off'
'set display color white'
'c'
'set grads off'
"define tt=TMPprs"
"define u=ugrdprs"
"define v=vgrdprs"
"define pp=lev"
"define coriol=2*7.29e-5*sin(lat*3.1415/180)"
"define dudy=cdiff(u,y)/(111177*cdiff(lat,y))"
"define dvdx=cdiff(v,x)/(111177*cdiff(lon,x)*cos(lat*3.1415/180))"
"define dt=tt(z-1)*pow(1000/pp(z-1),0.286)-tt(z+1)*pow(1000/pp(z+1),0.286)"
"define dp=100*(pp(z-1)-pp(z+1))"
"define dtdp=dt/dp"
'set gxout shaded'
'set csmooth on'
"define part1="isen(dvdx,tt,PP,350)
"define part2="isen(dudy,tt,PP,350)
"define part3="isen(dtdp,tt,PP,350)
"define pv350=-9.8*(coriol+part1-part2)*part3"
"set z 1"
'set lon 110 150'
'set lat 20 60'
"d pv350*1000000"
'set gxout contour'
'set csmooth on'
"define part1="isen(dvdx,tt,PP,310)
"define part2="isen(dudy,tt,PP,310)
"define part3="isen(dtdp,tt,PP,310)
"define pv310=-9.8*(coriol+part1-part2)*part3"
"set z 1"
'set lon 110 150'
'set lat 20 60'
'set cstyle 3'
'set cthick 4'
"d pv310*1000000"
'q w2xy 129.4 46.3'
x1=subwrd(result,3)
y1=subwrd(result,6)
'draw wxsym 41 'x1' 'y1' 0.3<1<2>>'
'enable print d:\date\bpvu16.gmf'
'print'
'disable'
;
|
|