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