(t_107 ::
(real ~ "1" on
(i = 1 .. nlon by j = 1 .. nlat + 1 by k = 1 .. nlev)
))
CSE Eliminated
(t_107 :=
- ( 1 / 2
* varidx(hxv, [i, j - 1])
* varidx(t_49, [i, j - 1, k])
* varidx(v, [i, j - 1, k])
* (varidx(ln_p, [i, j, k]) - varidx(ln_p, [i, j - 1, k]))
))