t_47 :: (real ~ "1" on
(i = 0 .. nlon + 1 by
j = 1 .. nlat + 1 by
k = 1 .. nlev
)
)
CSE Eliminated
t_47 := ( (varidx(p, [i, j, k]) + varidx(p, [i + 1, j, k]))
- varidx(p, [i, j, k + 1])
- varidx(p, [i + 1, j, k + 1])
)