Searched refs:nx_R (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/tutorials/ |
| H A D | ex10.c | 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
221 nx_R.E = (x[i + 1].E - x[i].E) / hx; in RDDiffusion()
222 nx_R.T = (x[i + 1].T - x[i].T) / hx; in RDDiffusion()
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()
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()
|