(t_192 ::
(real ~ "1" on
(i = 1 .. nlon by j = 1 .. nlat by k = 2 .. 2 max nlev)
))
CSE Eliminated
(t_192 :=
( (varidx(u, [i, j, k]) - varidx(u, [i, j, k - 1]))
* (varidx(eta_p, [i, j, k]) + varidx(eta_p, [i + 1, j, k]))
))