t_18
::
(
real
~
"1"
on
(
i
=
1
..
nlon
+
1
by
j
=
1
..
nlat
+
1
by
k
=
2
..
nlev
)
)
CSE Eliminated
t_18
:=
log
(
varidx
(
p
, [
i
,
j
,
k
])
/
varidx
(
p
, [
i
,
j
,
k
+
1]))