t_70 :: (real ~ "1" on
(i = 1 .. nlon + 1 by
j = 1 .. nlat + 1 by
k = 1 .. nlev + 1
)
)
CSE Eliminated
t_70 := ( 1.56961230576048E-7
* ( ( ( rdlam
* ( varidx(hyu, [i, j]) * varidx(t_61, [i + 1, j, k])
- varidx(hyu, [i - 1, j]) * varidx(t_61, [i, j, k])
)
)
+ rdth * ( varidx(hxv, [i, j]) * varidx(t_65, [i, j + 1, k])
- varidx(hxv, [i, j - 1]) * varidx(t_65, [i, j, k])
)
)
/ (varidx(hxt, [i, j]) * varidx(hyt, [i, j]))
)
)