Searched refs:D_L (Results 1 – 1 of 1) sorted by relevance
206 PetscScalar D_L, D_R, fluxL, fluxR; in RDDiffusion() local212 RDDiffusionCoefficient(rd, PETSC_TRUE, &n_L, &nx_L, &D_L, &dD_L, &dxD_L); in RDDiffusion()213 fluxL = D_L * nx_L.E; in RDDiffusion()214 dfluxL[0].E = -ihx * D_L + (0.5 * dD_L.E - ihx * dxD_L.E) * nx_L.E; in RDDiffusion()215 dfluxL[1].E = +ihx * D_L + (0.5 * dD_L.E + ihx * dxD_L.E) * nx_L.E; in RDDiffusion()