433 {
435
436 const double vol = getMeasure();
437 auto t_dot_u = getFTensor1FromMat<U_FIELD_DIM>(*
dotUPtr);
438 auto t_u = getFTensor1FromMat<U_FIELD_DIM>(*
uPtr);
439 auto t_grad_u = getFTensor2FromMat<U_FIELD_DIM, SPACE_DIM>(*
gradUPtr);
440 auto t_h = getFTensor0FromVec(*
hPtr);
441 auto t_g = getFTensor0FromVec(*
gPtr);
442 auto t_coords = getFTensor1CoordsAtGaussPts();
443
444 auto t_row_base = row_data.getFTensor0N();
445 auto t_row_diff_base = row_data.getFTensor1DiffN<
SPACE_DIM>();
446
447 auto t_w = getFTensor0IntegrationWeight();
448
455
456 t_buoyancy_dh(
i) = 0;
457
458 for (int gg = 0; gg != nbIntegrationPts; gg++) {
459
460 const double r = t_coords(0);
462
466
467 auto t_D_dh =
get_D(2 * mu_dh);
468
469 t_inertia_force_dh(
i) = (
alpha * rho_dh) * t_dot_u(
i);
471 t_convection_dh(
i) = (rho_dh *
alpha) * (t_u(
j) * t_grad_u(
i,
j));
472 const double t_phase_force_g_dh = -
alpha *
kappa * t_g;
474 t_inertia_force_dh(
i) + t_buoyancy_dh(
i) + t_convection_dh(
i);
475
476 t_stress_dh(
i,
j) =
alpha * (t_D_dh(
i,
j,
k,
l) * t_grad_u(
k,
l));
477
478 int rr = 0;
480
481 auto t_mat =
482 getFTensor1FromMat<U_FIELD_DIM, 1>(locMat, rr *
U_FIELD_DIM);
483 auto t_col_base = col_data.getFTensor0N(gg, 0);
484 auto t_col_diff_base = col_data.getFTensor1DiffN<
SPACE_DIM>(gg, 0);
485
486 for (int cc = 0; cc != nbCols; ++cc) {
487
488 const double bb = t_row_base * t_col_base;
489 t_mat(
i) += t_forces_dh(
i) * bb;
490 t_mat(
i) += (t_phase_force_g_dh * t_row_base) * t_col_diff_base(
i);
491 t_mat(
i) += (t_row_diff_base(
j) * t_col_base) * t_stress_dh(
i,
j);
492
493
495 t_mat(0) += (bb * (
alpha / t_coords(0))) * (2 * mu_dh * t_u(0));
496 }
497
498 ++t_mat;
499 ++t_col_base;
500 ++t_col_diff_base;
501 }
502
503 ++t_row_base;
504 ++t_row_diff_base;
505 }
506
507 for (; rr < nbRowBaseFunctions; ++rr) {
508 ++t_row_diff_base;
509 ++t_row_base;
510 }
511
512 ++t_dot_u;
513 ++t_u;
514 ++t_grad_u;
515 ++t_h;
516 ++t_g;
517 ++t_coords;
518 ++t_w;
519 }
520
522 }
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
constexpr int U_FIELD_DIM
constexpr CoordinateTypes coord_type
select coordinate system <CARTESIAN, CYLINDRICAL>;
constexpr double rho_diff
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'l', 3 > l
FTensor::Index< 'j', 3 > j
FTensor::Index< 'k', 3 > k