- 积分
- 120
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-6-27
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 气象局 于 2013-6-20 18:19 编辑
我在学着水汽输送场的grads程序,我借用了群论坛里的程序,自己做了些修改,由于自己是初学者可能会犯些低级错误,请大家见谅,有错的地方希望朋友能帮我指出来,感激不尽!下面是自己做了些修改的程序,请大家帮忙!
* This is a script for displaying moisture convergence
* Written by Michael Maxwell
*
* rh = Relative Humidity in %
* t = Temp at *set level in degrees Kelvin
* tc = Temp in degrees C
* td = Dewpoint at *set level in degrees C
* e = Vapor pressure
* mixr = Mixing ratio
* u = U-wind in m/s
* v = V-wind in m/s
* mconv = moisture convergence/divergence. convergence is positive and divergence is
negative.
'reinit'
'sdfopen c:\zl\t.nc'
'sdfopen c:\zl\u.nc'
'sdfopen c:\zl\v.nc'
'sdfopen c:\zl\sr.nc'
'set lev 700'
'set lat 20 35'
'set lon 100 110'
'set t 64'
'set mpdset cnworld'
'set xlopts 1 4 0.15'
'set ylopts 1 4 0.15'
'set grads off'
'set timelab off'
'set grid off'
*‘tc=(tmpprs-273.16)'
'td=t.1-((14.55+0.114*t.1)*(1-0.01*q.4) + pow((2.5+0.007*t.1)*(1-0.01*q.4),3) +
(15.9+0.37*t.1)*pow((1-0.01*q.4),14))'
'vapr=6.112*exp((17.67*td)/(td+243.5))'
'e=vapr*1.001+(lev-100)/900*0.0034'
'define mixr=0.62137*(e/(lev-e))*1000/9.8'
通过此gs文件算出的水汽通量的单位是g/(cm.s),一般为 十几到几十
'define qx=u.2*mixr'
'define qy=v.3*mixr'
'define mconv=hdivg(qx,qy)*1e6'
'enable print c:\tx\sq.gmf'
'set arrscl 1 500'
'set lon 124'
'set cmin 30'
'set gxout shaded'
'd mag(qx,qy)'
'set cmin 30'
'set gxout contour'
'd mag(qx,qy)'
'd theta'
'd skip(u,8);skip(v,8)'
'print'
'disable print'
'printim c:/tx/qfs.gif white'
在grads一运行,按回车,grads就消失了,前提是grads能运行其他的gs文件,我觉得就是这个程序出问题了,请大家帮忙看看!
|
|