533 {
535
538 constexpr auto size_symm = (DIM * (DIM + 1)) / 2;
540
541 const double vol = getMeasure();
542 auto t_w = getFTensor0IntegrationWeight();
543 auto t_coords = getFTensor1CoordsAtGaussPts();
544 auto t_base = data.getFTensor0N();
545 auto t_diff_base = data.getFTensor1DiffN<
SPACE_DIM>();
546
547#ifndef NDEBUG
548 if (data.getDiffN().size1() != data.getN().size1())
550 if (data.getDiffN().size2() != data.getN().size2() *
SPACE_DIM) {
552 << "Side " << rowSide << " " << CN::EntityTypeName(rowType);
553 MOFEM_LOG(
"SELF", Sev::error) << data.getN();
554 MOFEM_LOG(
"SELF", Sev::error) << data.getDiffN();
556 }
557#endif
558
559 auto t_EP = getFTensor2SymmetricFromMat<SPACE_DIM>(*
EPPtr);
560
561
562 const double alpha = t_w * vol;
563
565
567 auto &nf = AssemblyDomainEleOp::locF;
568
569 for (int gg = 0; gg != nbIntegrationPts; ++gg) {
570
572 t_coords(1), t_coords(2));
573 t_set_EP(1, 1) = t_set_EP(0, 0) - 0.01;
574 t_set_EP(0, 1) = t_set_EP(0, 0) - 0.02;
575
576
577
578
579
580
581
582 const double alpha = t_w * vol;
583
585 t_set_EP_L(L) = alpha * t_set_EP(
i,
j) * t_L(
i,
j, L);
586
587 auto t_nf = getFTensor1FromArray<size_symm, size_symm>(nf);
588 int bb = 0;
589 for (; bb != AssemblyDomainEleOp::nbRows /
size_symm; ++bb) {
590 t_nf(L) -= t_base * (t_set_EP_L(L));
591 ++t_base;
592 ++t_diff_base;
593 ++t_nf;
594 }
595
596 for (; bb < nbRowBaseFunctions; ++bb) {
597 ++t_base;
598 ++t_diff_base;
599 }
600
601 ++t_EP;
602
603
604 ++t_coords;
605 ++t_w;
606 }
607
609 }
#define FTENSOR_INDEX(DIM, I)
constexpr int SPACE_DIM
[Define dimension]
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
@ MOFEM_DATA_INCONSISTENCY
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
#define MOFEM_LOG(channel, severity)
Log.
FTensor::Index< 'i', SPACE_DIM > i
FTensor::Index< 'j', 3 > j
auto symm_L_tensor(FTensor::Number< DIM >)
auto init_T
Initialisation function for temperature field.