- 积分
- 128
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-3-22
- 最后登录
- 1970-1-1
|
发表于 2013-5-12 17:38:18
|
显示全部楼层
'reinit'
'sdfopen f:\thesis\data\levels.nc'
'sdfopen f:\thesis\data\output.nc'
'set lon 90 115'
'set lat 25 45'
'set lev 850'
id=109
while(id<=118)
'set grads off'
'set parea 1 10.5 1 7.5'
'set xlopts 1 5 0.12'
'set ylopts 1 5 0.12'
'set t 'id''
'define prs=lev'
'define g=9.8'
'define es=(6.112*exp((17.67*(t.2-273.15))/(t.2-35.86)))'
'define qs=(0.62197*es/(prs-0.378*es))'
'define q=qs*r.1/100'
'define x=q*u.1'
'define y=q*v.1'
'define sqdiv=hdivg(x,y)*1e9'
'set gxout contour'
'set cthick 5'
'set ccolor 4'
'set mpdset cnriver'
'set map 2 1 7'
'draw map'
'd sqdiv'
'set mpdset mres'
'set mpdset cnworld'
'set map 1 1 6'
'draw map'
'q time'
res=subwrd(result,3)
res=substr(res,1,12)
'draw title 850hPa divergence of moisture flux on 'res''
'enable print f:\thesis\data\850\'res'sqdivg.gmf'
'print'
'disable print'
pull dummy
'c'
id=id+1
endwhile
我的是这个样子的,能出图,你看看吧! |
|