Showalter Index

Piotr Djaków pdjakow at GMAIL.COM
Sat Sep 20 03:32:25 EDT 2008


Dnia 2008-09-19, pią o godzinie 09:01 +0200, Davide Sacchetti pisze:

>    'define epres=exp('k15'-'k1'*t-'k2'/t)*'R'/100'
>    'define pom='k15'-log(epres)'
>    'define dewtemp=(pom-sqrt(pom*pom-'k3'))/'k4
>    'define tcp=dewtemp-(t-dewtemp)*('k5'+'k6'/t+'k7'*t)'
>    'define pcp=lev*pow((tcp/t),('Rd'/'Cp'))'
>    'define ww=epres/(lev-epres)'
>    'define pd=(pcp-'P0'+abs(pcp-'P0'))/(2*abs(pcp-'P0'))'
>    if(pd=1)
>     'define
> showalter=t(lev='P0')-t(lev='level')*pow(('P0'/'level'),('Rd'/'Cp'))'
>    else
>     'define showalter=t(lev='P0')-tcp
> +(pcp-'P0')*('k10'+'k11'*ww-'k12'*ww/tcp-'k13'*pcp)'
>    endif
>

Tell me if i'm wrong:
t is tmp2m, and R is rh2m (%)?
So in GFS GRIB files this calculation may be look like this?:

'define epres=exp('k15'-'k1'*tmp2m-'k2'/tmp2m)*Rh2m/100'
'define pom='k15'-log(epres)'
'define dewtemp=(pom-sqrt(pom*pom-'k3'))/'k4
'define tcp=dewtemp-(tmp2m-dewtemp)*('k5'+'k6'/tmp2m+'k7'*tmp2m)'
'define pcp=lev*pow((tcp/tmp2m),('Rd'/'Cp'))'
'define ww=epres/(lev-epres)'
'define pd=(pcp-'P0'+abs(pcp-'P0'))/(2*abs(pcp-'P0'))'
if(pd=1)
'define
showalter=tmpprs(lev='P0')-tmpprs(lev='level')*pow(('P0'/'level'),('Rd'/'Cp'))'
else
'define showalter=tmpprs(lev='P0')-tcp
+(pcp-'P0')*('k10'+'k11'*ww-'k12'*ww/tcp-'k13'*pcp)'
endif

Regards
Piotr Djaków

--
Modele GFS/WRF dla Polski i Europy:
http://www.gfspl.rootnode.net/



More information about the gradsusr mailing list