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