- 积分
- 6437
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-12-9
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2016-1-5 10:14:17
|
显示全部楼层
本帖最后由 杨雨轩 于 2016-1-5 10:16 编辑
修改后的gs:
'reinit'
file='f:\yangyuxuan\theory\201512\vaporfluxdiv\vaporfluxdiv_850_1201_10.gmf'
'enable print 'file
'set vpage 0 11 0 8.5'
*'set parea 0 11 1 8'
'set mpdset hires'
'set mpdset cnworld'
'set poli on'
'set map 15 1 8'
'set grads off'
'set grid off'
'sdfopen f:\yangyuxuan\theory\201512\vaporfluxdiv\air.2015.nc'
'sdfopen f:\yangyuxuan\theory\201512\vaporfluxdiv\shum.2015.nc'
'sdfopen f:\yangyuxuan\theory\201512\vaporfluxdiv\uwnd.2015.nc'
'sdfopen f:\yangyuxuan\theory\201512\vaporfluxdiv\vwnd.2015.nc'
'set lev 850'
'set t 335'
'define tt=air.1'
'define e=(6.112*exp((17.67*(tt-273.16))/(tt-29.65)))'
'define qs=(0.622*e/(lev-0.378*e))'
'define q=qs*shum.2/100'
'define uq=q*uwnd.3/9.8'
'define vq=q*vwnd.4/9.8'
'define qdiv=hdivg(uq,vq)*1000'
i=336
while(i<=344)
'set t 'i
*'set t 335 344'
'define tt=air.1'
'define e=(6.112*exp((17.67*(tt-273.16))/(tt-29.65)))'
'define qs=(0.622*e/(lev-0.378*e))'
'define q=qs*shum.2/100'
'uq=uq+q*uwnd.3/9.8'
'vq=vq+q*vwnd.4/9.8'
'qdiv=qdiv+hdivg(uq,vq)*1000'
i=i+1
endwhile
'define auq=uq/10'
'define avq=vq/10'
'define aqdiv=qdiv/10'
*'define auq=ave(uq,t=335,t=344,1)'
*'define avq=ave(vq,t=335,t=344,1)'
*'define aqdiv=hdivg(auq,avq)*1000'
*'define aqdiv=ave(qdiv,t=335,t=344,1)'
'set lat -20 40';'set lon 60 140'
'set xlint 10';'set ylint 10'
'set csmooth on'
'set gxout shaded'
'd aqdiv'
'cbarn 0.85 0 5.52 0.31'
*'set gxout contour'
*'d aqdiv'
'set gxout vector'
'set arrscl 0.15'
'set arrowhead 0.05'
'd auq;avq'
'print'
'disable print'
'clear'
'close 5'
'close 4'
'close 3'
'close 2'
'close 1'
'reinit'
出图:
|
|