117 std::string Type_diss =
"other";
118 if (tau) Type_diss =
"tau";
119 else if (omega) Type_diss =
"omega";
121 DoubleTrav epsilon(alpha);
124 visc_turb.
eps(epsilon);
125 double limiter = visc_turb.
limiteur();
129 Matrice_Morse *Ma = matrices.count(
"alpha") ? matrices.at(
"alpha") :
nullptr,
130 *Mk = matrices.count(
"k") ? matrices.at(
"k") :
nullptr,
131 *Mtau = matrices.count(
"tau") ? matrices.at(
"tau") :
nullptr,
132 *Momega = matrices.count(
"omega") ? matrices.at(
"omega") :
nullptr,
133 *Mai = matrices.count(
"interfacial_area") ? matrices.at(
"interfacial_area") :
nullptr;
135 int cR = (rho_p.dimension_tot(0) == 1), cM = (nu_p.dimension_tot(0) == 1), n, k, e, d, D =
dimension;
136 DoubleTrav a_l(N), a_l_p(N), p_l(N), T_l(N), rho_l(N), nu_l(N), sigma_l(N,N), dv(N, N), d_bulles(N), eps_l(Nk), k_l(Nk), coeff_RC(N, N), coeff_WE(N, N);
140 DoubleTab pvit_elem(0, N * D);
141 domaine.domaine().creer_tableau_elements(pvit_elem);
145 const double fac_sec = 1.e4 ;
146 const double alpha_sec = 0.509 ;
147 const double alpha_min = 1.e-3 ;
150 for (e = 0; e < domaine.nb_elem(); e++)
153 for (n = 0; n < N; n++)
155 a_l(n) = alpha(e, n);
156 a_l_p(n) = alpha_p(e, n);
157 p_l(n) = press_p(e, n * (Np > 1));
158 T_l(n) = temp_p(e, n);
159 rho_l(n) = rho_p(!cR * e, n);
160 nu_l(n) = nu_p(!cM * e, n);
161 for (k = 0; k < N; k++)
165 sigma_l(n,k) = sat.
sigma(temp_p(e,n), press_p(e,n * (Np > 1)));
172 sigma_l(n,k) = sig(e);
176 d_bulles(n) = d_b(e,n);
180 for (n = 0; n < Nk; n++)
182 eps_l(n) =epsilon(e, n) ;
183 k_l(n) = (tab_k_p) ? (*tab_k_p)(e,n) : 0;
186 for (dv =0, d = 0; d < D; d++)
187 for (n = 0; n < N; n++)
188 for (k = 0 ; k<N ; k++) dv(n, k) += (pvit_elem(e, N * d + n) - ((n!=k) ? pvit_elem(e, N * d + k) : 0) ) * (pvit_elem(e, N * d + n) - ((n!=k) ? pvit_elem(e, N * d + k) : 0) );
189 for (n = 0; n < N; n++)
190 for (k = 0 ; k<N ; k++) dv(n, k) = sqrt(dv(n, k)) ;
193 correlation_coal.
coefficient_RC(a_l, a_l_p, p_l, T_l, rho_l, nu_l, sigma_l, dh, dv, d_bulles, eps_l, k_l,
n_l,
n_g1,
n_g2, coeff_RC);
194 correlation_coal.
coefficient_WE(a_l_p, p_l, T_l, rho_l, nu_l, sigma_l, dh, dv, d_bulles, eps_l, k_l,
n_l,
n_g1,
n_g2, coeff_WE);
197 double eps_valeurs = epsilon(e,
n_l) ;
198 if (Type_diss ==
"tau") eps_valeurs =
beta_k_ * ((*tab_k)(e,
n_l)>1.e-8 ? (*tab_k)(e,
n_l)*(*tab_k)(e,
n_l)/ std::max((*tab_k)(e,
n_l) * (*tau)(e,
n_l), limiter * nu_p(e,
n_l)) : 0 );
199 else if (Type_diss ==
"omega") eps_valeurs =
beta_k_ * ((*tab_k)(e,
n_l)*(*omega)(e,
n_l)) ;
200 else eps_valeurs = epsilon(e,
n_l);
206 const double fac_RC1 = (alpha(e,
n_g1)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_g1,
n_l) : 0.;
207 const double dfac_RC1da = (alpha(e,
n_g1)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_l,
n_g1) : 0. ;
208 const double fac_WE1 = (alpha(e,
n_g1)>alpha_min) ? pe(e) * ve(e) * coeff_WE(
n_g1,
n_l) : 0. ;
209 const double dfac_WE1da = (alpha(e,
n_g1)>alpha_min) ? pe(e) * ve(e) * coeff_WE(
n_l,
n_g1) : 0.;
210 const double fac_RC2 = (alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_g2,
n_l) : 0.;
211 const double dfac_RC2da = (alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_l,
n_g2) : 0. ;
212 const double fac_WE2 = (alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_WE(
n_g2,
n_l) : 0. ;
213 const double fac_RC112 = (alpha(e,
n_g1)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_g1,
n_g1) : 0.;
214 const double fac_RC122_1 =(alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_g1,
n_g2) : 0.;
215 const double dfac_RC122_1da = (alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_l,
n_l) : 0. ;
216 const double fac_RC122_2 = (alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_RC(
n_g2,
n_g1) : 0. ;
217 const double fac_WE112 = (alpha(e,
n_g1)>alpha_min) ? pe(e) * ve(e) * coeff_WE(
n_g1,
n_g1) : 0.;
218 const double fac_WE122_1 = (alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_WE(
n_g1,
n_g2) : 0.;
219 const double fac_WE122_2 = (alpha(e,
n_g2)>alpha_min) ? pe(e) * ve(e) * coeff_WE(
n_g2,
n_g1) : 0.;
222 const double ai1_p = std::max(inco_p(e,
n_g1), 0.) ;
223 const double ai1 = std::max(inco(e,
n_g1), 0.) ;
225 const double ai2_p = std::max(inco_p(e,
n_g2), 0.) ;
226 const double ai2 = std::max(inco(e,
n_g2), 0.) ;
227 const double eps_1_over3 = std::cbrt(eps_valeurs) ;
229 const double alphag1_1_over3 = std::cbrt(std::min(alpha(e,
n_g1), alpha_sec)) ;
230 const double alphag1_p_1_over3 = std::cbrt(std::min(alpha_p(e,
n_g1), alpha_sec)) ;
232 const double alphag2_1_over3 = std::cbrt(alpha(e,
n_g2)) ;
233 const double alphag2p_1_over3 = std::cbrt(alpha_p(e,
n_g2)) ;
235 const double ai2_1_over3 = std::cbrt(ai2) ;
236 const double ai2p_1_over3 = std::cbrt(ai2_p) ;
238 const double ai1_5_over3 = std::cbrt(ai1) * std::cbrt(ai1) * std::cbrt(ai1) * std::cbrt(ai1) * std::cbrt(ai1) ;
239 const double ai1p_5_over3 = std::cbrt(ai1_p) * std::cbrt(ai1_p) * std::cbrt(ai1_p) * std::cbrt(ai1_p) * std::cbrt(ai1_p) ;
240 const double ai2_5_over3 = std::cbrt(ai2) * std::cbrt(ai2) * std::cbrt(ai2) * std::cbrt(ai2) * std::cbrt(ai2) ;
246 secmem(e ,
n_g1) += (fac_RC1 > 0. ) ? fac_RC1 * std::min(alpha(e,
n_g1), alpha_sec) * ai1_5_over3 * eps_1_over3 : 0. ;
250 secmem(e ,
n_g2) += (fac_RC2 > 0. ) ? fac_RC2 * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) /std::min(ai2_1_over3,fac_sec) * eps_1_over3 : 0. ;
254 secmem(e ,
n_g2) += (fac_RC112 > 0. ) ? fac_RC112 * eps_1_over3 * std::min(alpha_p(e,
n_g1), alpha_sec) * ai1p_5_over3: 0. ;
258 secmem(e ,
n_g1) += (fac_RC122_1 > 0. ) ? fac_RC122_1 * eps_1_over3 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) : 0.;
262 secmem(e ,
n_g2) += (fac_RC122_2 > 0. ) ? fac_RC122_2 * eps_1_over3 * (alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3) * (alphag2_1_over3) * (ai2_5_over3) : 0. ;
266 secmem(e ,
n_g1) += (fac_WE1 > 0. ) ? fac_WE1 * ai1 * ai1 : 0. ;
270 secmem(e ,
n_g2) += (fac_WE2 > 0. ) ? fac_WE2 * ai2 * ai2 / std::min(alpha(e,
n_g2) ,fac_sec): 0.;
274 secmem(e ,
n_g2) += (fac_WE112 > 0. ) ? fac_WE112 * ai1_p * ai1_p: 0. ;
278 secmem(e ,
n_g1) += (fac_WE122_1 > 0. ) ? fac_WE122_1 * ai1 * ai2_p: 0. ;
282 secmem(e ,
n_g2) += (fac_WE122_2 > 0. ) ? fac_WE122_2 * ai2 * std::min(alpha_p(e,
n_g1), alpha_sec) / std::min(alpha(e,
n_g2),fac_sec): 0.;
289 (*Ma)(N * e +
n_g1 , N * e +
n_g1) -= (fac_RC1 > 0. ) ? fac_RC1 * ai1_5_over3 * eps_1_over3 + dfac_RC1da * std::min(alpha(e,
n_g1), alpha_sec) * ai1_5_over3 * eps_1_over3: 0. ;
293 (*Ma)(N * e +
n_g2 , N * e +
n_g2) -= (fac_RC2 > 0. ) ? fac_RC2 * 7./3. * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) / std::min(ai2_1_over3,fac_sec) * eps_1_over3 + dfac_RC2da * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) / std::min(ai2_1_over3,fac_sec) * eps_1_over3 : 0. ;
297 (*Ma)(N * e +
n_g1 , N * e +
n_g1) -= (fac_RC122_1 > 0. ) ? fac_RC122_1 * eps_1_over3 * 2./3. / std::min(alphag1_1_over3,fac_sec) * (ai2p_1_over3 * ai2p_1_over3 * ai2p_1_over3 * ai2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) + dfac_RC122_1da * eps_1_over3 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) : 0. ;
301 (*Ma)(N * e +
n_g2 , N * e +
n_g2) -= (fac_RC122_2 > 0. ) ? fac_RC122_2 * eps_1_over3 / std::min(alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 ,fac_sec) * 1./3./ std::min( alphag2_1_over3 * alphag2_1_over3,fac_sec) * ai2_5_over3 : 0. ;
305 (*Ma)(N * e +
n_g1 , N * e +
n_g1) -=(dfac_WE1da > 0. ) ? dfac_WE1da * ai1 * ai1 : 0. ;
309 (*Ma)(N * e +
n_g2 , N * e +
n_g2) -=(fac_WE2 > 0. ) ? -fac_WE2 * (ai2 * ai2) / std::min(alpha(e,
n_g2) * alpha(e,
n_g2), fac_sec) : 0. ;
314 (*Ma)(N * e +
n_g2 , N * e +
n_g2) -=(fac_WE122_2 > 0. ) ? - fac_WE122_2 * ai2 * alpha_p(e,
n_g1) / std::min(alpha(e,
n_g2) * alpha(e,
n_g2),fac_sec) : 0. ;
321 (*Mai)(N * e +
n_g1 , N * e +
n_g1) -=(fac_RC1 > 0. ) ? fac_RC1 * std::min(alpha(e,
n_g1), alpha_sec) * 5./3. * std::cbrt(ai1) * std::cbrt(ai1) * eps_1_over3 : 0. ;
325 (*Mai)(N * e +
n_g2 , N * e +
n_g2) -=(fac_RC2 > 0. ) ? - fac_RC2 * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) * 1./3. / std::min(ai2_1_over3 * ai2_1_over3 * ai2_1_over3 * ai2_1_over3,fac_sec) * eps_1_over3 : 0. ;
329 (*Mai)(N * e +
n_g1 , N * e +
n_g1) -=(fac_RC122_1 > 0. ) ? fac_RC122_1 * eps_1_over3 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * (ai2p_1_over3 * ai2p_1_over3) : 0. ;
333 (*Mai)(N * e +
n_g2 , N * e +
n_g2) -=(fac_RC122_2 > 0. ) ? fac_RC122_2 * eps_1_over3 * (alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3) * alphag2_1_over3 * 5./3. * (ai2_1_over3 * ai2_1_over3) : 0. ;
337 (*Mai)(N * e +
n_g1 , N * e +
n_g1) -=(fac_WE1 > 0. ) ? fac_WE1 * 2. * ai1 : 0. ;
340 (*Mai)(N * e +
n_g2 , N * e +
n_g2) -=(fac_WE2 > 0. ) ? fac_WE2 * 2. * ai2 / std::max(alpha(e,
n_g2),1./fac_sec) : 0. ;
344 (*Mai)(N * e +
n_g1 , N * e +
n_g1) -=(fac_WE122_1 > 0. ) ? fac_WE122_1 * ai2_p : 0. ;
348 (*Mai)(N * e +
n_g2 , N * e +
n_g2) -=(fac_WE122_2 > 0. ) ? fac_WE122_2 * 2. * ai2 * alpha_p(e,
n_g1) / std::max(alpha(e,
n_g2),1./fac_sec) : 0. ;
350 if (Type_diss ==
"tau")
352 if ((*tab_k)(e,
n_l) * (*tau)(e,
n_l) > limiter * nu_p(e,
n_l))
356 const double deps = 1./3. * std::cbrt(
beta_k_) / std::min(std::cbrt((*tab_k)(e,
n_l)) * std::cbrt((*tab_k)(e,
n_l)),fac_sec) / std::min(std::cbrt((*tau)(e,
n_l)),fac_sec) ;
360 (*Mk)(N * e +
n_g1, Nk * e +
n_l) -=(fac_RC1 > 0. ) ? fac_RC1 * std::min(alpha(e,
n_g1), alpha_sec) * ai1_5_over3 * 1./3. * deps : 0. ;
364 (*Mk)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC2 > 0. ) ? fac_RC2 * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) / std::min(ai2_1_over3,fac_sec) * deps : 0.;
368 (*Mk)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC112 > 0. ) ? fac_RC112 * std::min(alpha_p(e,
n_g1), alpha_sec) * ai1p_5_over3 * deps: 0. ;
372 (*Mk)(N * e +
n_g1, Nk * e +
n_l) -=(fac_RC122_1 > 0. ) ? fac_RC122_1 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) * deps : 0.;
376 (*Mk)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC122_2 > 0. ) ? fac_RC122_2 * (alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3) * alphag2_1_over3 * (ai2_5_over3) * deps : 0.;
381 const double deps = -1./3. * std::cbrt(
beta_k_) * std::cbrt((*tab_k)(e,
n_l)) / std::min(std::cbrt((*tau)(e,
n_l)) * std::cbrt((*tau)(e,
n_l)) * std::cbrt((*tau)(e,
n_l)) * std::cbrt((*tau)(e,
n_l)),fac_sec) ;
385 (*Mtau)(N * e +
n_g1, Nk * e +
n_l)-=(fac_RC1 > 0. ) ? fac_RC1 * std::min(alpha(e,
n_g1), alpha_sec) * ai1_5_over3 * deps : 0.;
389 (*Mtau)(N * e +
n_g2, Nk * e +
n_l)-=(fac_RC2 > 0. ) ? fac_RC2 * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) / std::min(ai2_1_over3,fac_sec) * deps : 0.;
393 (*Mtau)(N * e +
n_g2, Nk * e +
n_l)-=(fac_RC112 > 0. ) ? fac_RC112 * std::min(alpha_p(e,
n_g1), alpha_sec) * ai1p_5_over3 * deps : 0.;
397 (*Mtau)(N * e +
n_g1, Nk * e +
n_l) -=(fac_RC122_1 > 0. ) ? fac_RC122_1 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) * deps : 0.;
401 (*Mtau)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC122_2 > 0. ) ? fac_RC122_2 * (alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3) * alphag2_1_over3 * (ai2_5_over3) * deps : 0.;
407 const double deps = 1./3. * std::cbrt(
beta_k_) / std::min(std::cbrt((*tab_k)(e,
n_l)),fac_sec) / std::min(std::cbrt(limiter * nu_p(e,
n_l)),fac_sec) ;
411 (*Mk)(N * e +
n_g1, Nk * e +
n_l) -=(fac_RC1 > 0. ) ? fac_RC1 * std::min(alpha(e,
n_g1), alpha_sec) * ai1_5_over3 * deps : 0.;
415 (*Mk)(N * e +
n_g2, Nk * e +
n_l) -= (fac_RC2 > 0. ) ? fac_RC2 * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) / std::min(ai2_1_over3,fac_sec) * deps : 0.;
419 (*Mk)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC112 > 0. ) ? fac_RC112 * std::min(alpha_p(e,
n_g1), alpha_sec) * ai1p_5_over3 * deps : 0.;
423 (*Mk)(N * e +
n_g1, Nk * e +
n_l) -=(fac_RC122_1 > 0. ) ? fac_RC122_1 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) * deps : 0.;
427 (*Mk)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC122_2 > 0. ) ? fac_RC122_2 * (alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3) * alphag2_1_over3 * (ai2_5_over3) * deps : 0.;
431 if (Type_diss ==
"omega")
435 const double deps = 1./3. * std::cbrt(
beta_k_) * std::cbrt((*tab_k)(e,
n_l)) / std::min(std::cbrt((*omega)(e,
n_l)) * std::cbrt((*omega)(e,
n_l)),fac_sec) ;
439 (*Momega)(N * e +
n_g1 , Nk * e +
n_l) -=(fac_RC1 > 0. ) ? fac_RC1 * std::min(alpha(e,
n_g1), alpha_sec) * ai1_5_over3 * deps : 0.;
443 (*Momega)(N * e +
n_g2 , Nk * e +
n_l) -=(fac_RC2 > 0. ) ? fac_RC2 * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) / std::min(ai2_1_over3,fac_sec) * deps : 0.;
447 (*Momega)(N * e +
n_g2 , Nk * e +
n_l) -=(fac_RC112 > 0. ) ? fac_RC112 * std::min(alpha_p(e,
n_g1), alpha_sec) * ai1p_5_over3 * deps : 0.;
451 (*Momega)(N * e +
n_g1, Nk * e +
n_l) -=(fac_RC122_1 > 0. ) ? fac_RC122_1 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) * deps : 0.;
455 (*Momega)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC1 > 0. ) ? fac_RC122_2 * (alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3) * alphag2_1_over3 * (ai2_5_over3) * deps : 0.;
460 const double deps = 1./3. * std::cbrt(
beta_k_) / std::min(std::cbrt((*tab_k)(e,
n_l)) * std::cbrt((*tab_k)(e,
n_l)) ,fac_sec) * std::cbrt((*omega)(e,
n_l)) ;
464 (*Mk)(N * e +
n_g1 , Nk * e +
n_l) -=(fac_RC1 > 0. ) ? fac_RC1 * std::min(alpha(e,
n_g1), alpha_sec) * ai1_5_over3 * deps : 0.;
468 (*Mk)(N * e +
n_g2 , Nk * e +
n_l) -=(fac_RC2 > 0. ) ? fac_RC2 * (alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3 * alphag2_1_over3) / std::min(ai2_1_over3,fac_sec) * deps : 0.;
472 (*Mk)(N * e +
n_g2 , Nk * e +
n_l) -=(fac_RC112 > 0. ) ? fac_RC112 * std::min(alpha_p(e,
n_g1), alpha_sec) * ai1p_5_over3 * deps : 0.;
476 (*Mk)(N * e +
n_g1, Nk * e +
n_l) -=(fac_RC122_1 > 0. ) ? fac_RC122_1 * (alphag1_1_over3 * alphag1_1_over3) * (alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3 * alphag2p_1_over3) * ai1 * (ai2p_1_over3 * ai2p_1_over3) * deps : 0.;
480 (*Mk)(N * e +
n_g2, Nk * e +
n_l) -=(fac_RC122_2 > 0. ) ? fac_RC122_2 * (alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3 * alphag1_p_1_over3) * alphag2_1_over3 * (ai2_5_over3) * deps : 0.;