Lines Matching refs:rad
194 …p_E = -1., tmp_T = 4. * rd->sigma_b * 4 * n->T * (PetscSqr(n->T)) / rd->c, rad = sigma_p * rd->c *… in RDRadiation() local
199 return rad; in RDRadiation()
330 PetscScalar Em_t, rad; in RDIFunction_FD() local
332 rad = (1. - Theta) * RDRadiation(rd, &x0[i], 0) + Theta * RDRadiation(rd, &x[i], 0); in RDIFunction_FD()
345 f[i].T = hx * (rho * Em_t + rad); in RDIFunction_FD()
370 f[i].E = hx * (xdot[i].E - diff - rad); in RDIFunction_FD()
651 PetscScalar Em_t, rad, D_R, D0_R; in RDIFunction_FE() local
657 rad = (1. - Theta) * RDRadiation(rd, &n0, 0) + Theta * RDRadiation(rd, &n, 0); in RDIFunction_FE()
671 …q] * ((1. - Theta) * D0_R * n0x.E + Theta * D_R * nx.E) + interp[q][j] * weight[q] * (nt.E - rad)); in RDIFunction_FE()
672 f[i + j].T += interp[q][j] * weight[q] * (rho * Em_t + rad); in RDIFunction_FE()
737 PETSC_UNUSED PetscScalar rad; in RDIJacobian_FE() local
741 rad = RDRadiation(rd, &n, &drad); in RDIJacobian_FE()
955 PetscScalar rad0, rad; in RDTestDifferentiation() local
962 rad = RDRadiation(rd, &n, 0); in RDTestDifferentiation()
963 fdrad.E = (rad - rad0) / epsilon; in RDTestDifferentiation()
966 rad = RDRadiation(rd, &n, 0); in RDTestDifferentiation()
967 fdrad.T = (rad - rad0) / epsilon; in RDTestDifferentiation()