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