| 
 
	积分45679贡献 精华在线时间 小时注册时间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"
 | 
 |