Searched refs:D_R (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/tutorials/ |
| H A D | ex10.c | 146 static void RDDiffusionCoefficient(RD rd, PetscBool limit, RDNode *n, RDNode *nx, PetscScalar *D_R,… in RDDiffusionCoefficient() argument
157 *D_R = rd->c / denom; in RDDiffusionCoefficient()
206 PetscScalar D_L, D_R, fluxL, fluxR; in RDDiffusion() local
223 RDDiffusionCoefficient(rd, PETSC_TRUE, &n_R, &nx_R, &D_R, &dD_R, &dxD_R); in RDDiffusion()
224 fluxR = D_R * nx_R.E; 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()
348 PetscScalar D_R, bcTheta = rd->bcmidpoint ? Theta : 1.; in RDIFunction_FD() local
357 RDDiffusionCoefficient(rd, rd->bclimit, &n, &nx, &D_R, 0, 0); in RDIFunction_FD()
358 f[0].E = hx * (n.E - 2. * D_R * nx.E - rd->Eapplied); in RDIFunction_FD()
[all …]
|