- 积分
- 1236
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-11-18
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
根据river http://bbs.06climate.com/forum.php?mod=viewthread&tid=10966中的程序,画了风速,可以出图:
而要画水汽通量的斜剖面,没有画出来,是因为水汽通量计算步骤多吗?下面是相关程序,都是根据上面链接中做的。
'reinit'
'open e:/wrf/yuand01/yuan01.ctl'
'set grads off'
'set grid off'
'set zlog on'
'set x 1'
'set y 1'
'set lev 1000 100'
'set t 15'
'set parea 6 10.4 0.5 7'
'define pre=lev'
'define e=(6.112*exp((17.67*(tk-273.16))/(tk-29.65)))'
'define qs=(0.622*e/(pre-0.378*e))'
'define q=qs*rh/100'
'define qu=(u*q/9.8)'
'define qv=(v*q/9.8)'
'define uvq=1000*mag(qu,qv)'
lon1 = 105
lon2 = 113
lat1 = 17
lat2 = 25
lon = lon1
'collect 1 free'
while (lon <= lon2)
lat = lat1 + (lat2-lat1)*(lon-lon1) / (lon2-lon1)
'collect 1 gr2stn(uvq,'lon','lat')'
lon = lon + 1
endwhile
'set csmooth on'
'set lon 105 113'
'set lev 1000 100'
'set ylevs 1000 925 850 700 600 500 400 300 200 100'
'set xlabs 17N,105E|21N,109E|25N,113E'
'set xlopts 1 6 0.15'
'set ylopts 1 6 0.15'
'set gxout contour'
'set csmooth on'
'set cthick 6'
'set ccolor 1'
'set clopts 0 6 0.15'
'd coll2gr(1,-u)'
'close 1'
|
|