- 积分
- 27
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-11-24
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit'
'sdfopen E:\ncep-data\data\2016\uwnd.2016.nc'
'sdfopen E:\ncep-data\data\2016\vwnd.2016.nc'
'sdfopen E:\ncep-data\data\2016\hgt.2016.nc'
'E:/ncep-data/red_blue3.gs'
'enable print E:\pic\vort\500hpa.gmf'
year='2016'
mon='Apr'
lev='500'
t=1
while(t<3)
hr=0
while(hr<=23)
'c'
'set time 'hr'z't''mon''year''
'set lon 80 150'
'set lat 30 70'
'set z 6'
'set grid off'
'set gxout shaded'
'define dv=cdiff(vwnd.2,x)'
'define dx=cdiff(lon,x)*3.1416/180'
'define du=cdiff(uwnd.1*cos(lat*3.1416/180),y)'
'define dy=cdiff(lat,y)*3.1416/180'
'd (dv/dx-du/dy)/(6.37E6*cos(lat*3.1416/180))'
cbarn.gs
'set gxout contour'
'set cint 4'
'set ccolor 1'
'set cstyle 1'
'set cthick 5'
'set clskip 2'
'd hgt.3/10'
'draw title vort, 'lev'hPa, 'hr'z't''mon''year''
*****************************
hr=hr+12
'print'
endwhile
t=t+1
endwhile
'disable print'
*-----------------------------
|
|