(t_108 ::
(real ~ "1" on
(i = 1 .. nlon by j = 1 .. nlat + 1 by k = 1 .. nlev)
))
CSE Eliminated
(t_108 :=
( varidx(t_107, [i, j, k])
* ( varidx(T, [i, j, k]) * varidx(q, [i, j, k])
+ varidx(T, [i, j - 1, k]) * varidx(q, [i, j - 1, k])
)
))