
Function for doing vertical integration using beta factors.
function vibeta(
p[*] : float,
x : float,
linlog[1] : integer,
psfc : float,
pbot[1] : float,
ptop[1] : float
)
begin
nlvl = 17
linlog = 1
p = (/ 1000.,925.,850.,700.,600.,500., \
400.,300.,250.,200.,150.,100., \
70.,50.,30.,20.,10. /)
psfc = 1013.
pbot = 1100.
ptop = p(nlvl-1)
plvcrt = p(nlvl-1)
x = new ( nlvl ,float)
do nl=0,nlvl-1
x(nl) = nlvl-nl
end do
vint = vibeta (p,x,linlog,psfc,pbot,ptop)
end
NG4.1 Home, Index, Examples, Glossary, Feedback, Ref Contents, Ref WhereAmI?