- 积分
- 42918
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-8-28
- 最后登录
- 1970-1-1
|
发表于 2015-9-28 21:57:03
|
显示全部楼层
*------------------------------------------------------------------
* GrADS script: the.gs
*
* Script purpose: Computes equivalent potential temperature (theta-e) in K.
* Uses the definition of theta-e from Bolton (1980).
*
* Author: George H. Bryan, Penn State: bryan@essc.psu.edu
*
* Last modified: 10 July 2000
*
* Assumes: t = temperature (K)
* prs = pressure (Pa)
* q = water vapor mixing ratio (unitless)
*-----------------------------------------------------------------
'define prs=lev'
'define es=100*(6.112*exp(17.67*(t-273.15)/(t-29.65)))'
"define q=rh*(0.62197*es/(prs-es))/100."
"define e=(prs/100.)*q/(0.62197+q)+1e-10"
"define tlcl=55.0+2840.0/(3.5*log(t)-log(e)-4.805)"
"undefine e"
"define theta=t*pow((100000./prs),(0.2854*(1.0-0.28*q)))"
"define the=theta*exp(((3376./tlcl)-2.54)*q*(1.0+0.81*q))"
"undefine tlcl"
"undefine theta" |
|