- 积分
- 6437
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-12-9
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想画700hPa高度上,干位涡的纬度—时间剖面图(经度固定在东经116度),所用的资料是ECMWF的逐日再分析(0.5°×0.5°)。尝试了很多次,但总是报错:
希望各位能帮我找出错误。
gs文件如下:
'reinit'
file='f:\yangyuxuan\theory\201512\mpv\pv_lat_t_0.5.gmf'
'enable print 'file
'set vpage 0 11 0 8.5'
'set parea 2 7 2 7'
'set mpdset hires'
'set map 15 1 8'
'sdfopen f:\yangyuxuan\theory\201512\201512.nc'
'set grads off'
'set grid off'
'set t 1 60'
'set lat 0 60'
'set lon 110 120'
'set z 1 11'
if(t>258.0)
'define a=17.2694'
'define b=35.86'
else
'define a=21.8764'
'define b=7.66'
endif
'define es=6.112*exp(a*(t-273.15)/(t-b))'
'define rs=0.622*es/(lev-es)'
'define theta=t*pow(1000/(lev-es),(287/1004))'
'define lv=2.5e6-2323*(t-273.15)'
*'define thetase=theta*exp(rs*lv/1004/t)'
'define alpha=287/lev*theta*pow((lev-es)/1000,(287/1004))'
'define g=9.8'
'define wz=-alpha*w/g'
'define dx=cdiff(lon,x)*cos(lat*3.1415926/180)*3.1415926/180*6371000'
'define dy=cdiff(lat,y)*3.1415926/180*6371000'
'define dz=z(z+1)-z(z-1)'
'define xu=cdiff(u,x)/dx'
'define yu=cdiff(u,y)/dy'
'define zu=(u(z+1)-u(z-1))/dz'
'define xv=cdiff(v,x)/dx'
'define yv=cdiff(v,y)/dy'
'define zv=(v(z+1)-v(z-1))/dz'
'define xw=cdiff(wz,x)/dx'
'define yw=cdiff(wz,y)/dy'
'define zw=(wz(z+1)-wz(z-1))/dz'
'define xtheta=cdiff(theta,x)/dx'
'define ytheta=cdiff(theta,y)/dy'
'define ztheta=(theta(z+1)-theta(z-1))/dz'
'define zizhuan=7.292e-5'
'define ee=2*zizhuan*cos(lat*3.14/180)'
'define f=2*zizhuan*sin(lat*3.14/180)'
'define PV1=alpha*(yw-zv)*xtheta'
'define PV2=alpha*(ee+zu-xw)*ytheta'
'define PV3=alpha*(f+xv-yu)*ztheta'
'define PV=PV1+PV2+PV3'
*'set gxout shaded'
*'set cmin 30'
*'set xyrev on'
*'d PV*1e6'
'set gxout contour'
'set ccolor 1'
'set lat 10 50';'set lon 116.5'
'set lev 700'
'set t 1 60'
'd tloop(ave(PV,t,t+3,4))*1e6'
*'drawfigstr TL (a) 1.5'
'print'
'clear'
'disable print'
'close 1'
|
|