(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])
   )
 ))