(t_102 ::
(real ~ "1" on
(i = 1 .. nlon + 1 by j = 1 .. nlat by k = 1 .. nlev)
))
CSE Eliminated
(t_102 :=
- ( 1 / 2
* varidx(hyu, [i - 1, j])
* varidx(t_47, [i - 1, j, k])
* varidx(u, [i - 1, j, k])
* (varidx(ln_p, [i, j, k]) - varidx(ln_p, [i - 1, j, k]))
))