Lines Matching refs:dxD_R
146 …cient(RD rd, PetscBool limit, RDNode *n, RDNode *nx, PetscScalar *D_R, RDNode *dD_R, RDNode *dxD_R) in RDDiffusionCoefficient() argument
162 if (dxD_R) { in RDDiffusionCoefficient()
163 dxD_R->E = -rd->c / PetscSqr(denom) * dxdenom.E; in RDDiffusionCoefficient()
164 dxD_R->T = -rd->c / PetscSqr(denom) * dxdenom.T; in RDDiffusionCoefficient()
205 RDNode n_L, nx_L, n_R, nx_R, dD_L, dxD_L, dD_R, dxD_R, dfluxL[2], dfluxR[2]; in RDDiffusion() local
223 RDDiffusionCoefficient(rd, PETSC_TRUE, &n_R, &nx_R, &D_R, &dD_R, &dxD_R); in RDDiffusion()
225 dfluxR[0].E = -ihx * D_R + (0.5 * dD_R.E - ihx * dxD_R.E) * nx_R.E; in RDDiffusion()
226 dfluxR[1].E = +ihx * D_R + (0.5 * dD_R.E + ihx * dxD_R.E) * nx_R.E; in RDDiffusion()
227 dfluxR[0].T = (0.5 * dD_R.T - ihx * dxD_R.T) * nx_R.E; in RDDiffusion()
228 dfluxR[1].T = (0.5 * dD_R.T + ihx * dxD_R.T) * nx_R.E; in RDDiffusion()
738 RDNode n, nx, nt, ntx, drad, dD_R, dxD_R, dEm; in RDIJacobian_FE() local
742 RDDiffusionCoefficient(rd, PETSC_TRUE, &n, &nx, &D_R, &dD_R, &dxD_R); in RDIJacobian_FE()
746 …ight[q] * (a - drad.E) * interp[q][k] + deriv[q][j] * weight[q] * ((D_R + dxD_R.E * nx.E) * deriv[… in RDIJacobian_FE()
747 …q][j] * weight[q] * (-drad.T * interp[q][k]) + deriv[q][j] * weight[q] * (dxD_R.T * deriv[q][k] + … in RDIJacobian_FE()