@@ -621,9 +621,9 @@ function update_implicit_equation_jacobian!(A, Y, p, dtγ, t)
621
621
ᶠgⁱʲ = Fields. local_geometry_field (Y. f). gⁱʲ
622
622
ᶠlg = Fields. local_geometry_field (Y. f)
623
623
624
- ᶜkappa_m = p . ᶜtemp_scalar
625
- @. ᶜkappa_m =
626
- TD . gas_constant_air (thermo_params, ᶜts) / TD . cv_m (thermo_params, ᶜts )
624
+ ᶜkappa_m = @. lazy (
625
+ TD . gas_constant_air (thermo_params, ᶜts) / TD . cv_m (thermo_params, ᶜts),
626
+ )
627
627
628
628
if use_derivative (topography_flag)
629
629
@. ∂ᶜK_∂ᶜuₕ = DiagonalMatrixRow (
@@ -899,10 +899,10 @@ function update_implicit_equation_jacobian!(A, Y, p, dtγ, t)
899
899
) # Need to wrap ᶠupwind_matrix in this for well-defined boundaries.
900
900
901
901
ᶠu³ʲ_data = ᶠu³ʲs.:(1 ). components. data.:1
902
- ᶜkappa_mʲ = p. ᶜtemp_scalar
903
- @. ᶜkappa_mʲ =
902
+ ᶜkappa_mʲ = @. lazy (
904
903
TD. gas_constant_air (thermo_params, ᶜtsʲs.:(1 )) /
905
- TD. cv_m (thermo_params, ᶜtsʲs.:(1 ))
904
+ TD. cv_m (thermo_params, ᶜtsʲs.:(1 )),
905
+ )
906
906
907
907
∂ᶜq_totʲ_err_∂ᶜq_totʲ =
908
908
matrix[@name (c. sgsʲs.:(1 ). q_tot), @name (c. sgsʲs.:(1 ). q_tot)]
@@ -1132,11 +1132,6 @@ function update_implicit_equation_jacobian!(A, Y, p, dtγ, t)
1132
1132
ᶠupwind_matrix =
1133
1133
is_third_order ? ᶠupwind3_matrix : ᶠupwind1_matrix
1134
1134
1135
- ᶜkappa_mʲ = p. ᶜtemp_scalar
1136
- @. ᶜkappa_mʲ =
1137
- TD. gas_constant_air (thermo_params, ᶜtsʲs.:(1 )) /
1138
- TD. cv_m (thermo_params, ᶜtsʲs.:(1 ))
1139
-
1140
1135
# Jacobian contributions of updraft massflux to grid-mean
1141
1136
1142
1137
∂ᶜupdraft_mass_flux_∂ᶜscalar = ᶠbidiagonal_matrix_ct3
0 commit comments