Lines Matching refs:cr
416 static PetscScalar cl, cr, wl, zl, wr, zr, pst, durl, skpr1, skpr2; in riem1mdt() local
435 cr = PetscSqrtScalar(*gamr * *pr / *rr); in riem1mdt()
437 wr = *rr * cr; in riem1mdt()
443 skpr1 = cr * (pst - 1.) * PetscSqrtScalar(2. / (*gamr * (*gamr - 1. + (*gamr + 1.) * pst))); in riem1mdt()
445 rarepr2 = gascr4 * 2. * cr * (1. - PetscPowScalar(pst, d__1)); in riem1mdt()
483 ustarr = *uxr + gascr4 * 2. * (cstarr - cr); in riem1mdt()
507 ustarr = *uxr + gascr4 * 2. * (cstarr - cr); in riem1mdt()
526 …ustarr = *uxr + (pst - 1.) * cr * PetscSqrtScalar(2. / (*gamr * (*gamr - 1. + (*gamr + 1.) * pst))… in riem1mdt()
527 …zr = *pr / cr * PetscSqrtScalar(*gamr * 2. * (*gamr - 1. + (*gamr + 1.) * pst)) * (*gamr - 1. … in riem1mdt()
549 …ustarr = *uxr + (pst - 1.) * cr * PetscSqrtScalar(2. / (*gamr * (*gamr - 1. + (*gamr + 1.) * pst)… in riem1mdt()
550 …zr = *pr / cr * PetscSqrtScalar(*gamr * 2. * (*gamr - 1. + (*gamr + 1.) * pst)) * (*gamr - 1.… in riem1mdt()