Lines Matching refs:cl
416 static PetscScalar cl, cr, wl, zl, wr, zr, pst, durl, skpr1, skpr2; in riem1mdt() local
434 cl = PetscSqrtScalar(*gaml * *pl / *rl); in riem1mdt()
436 wl = *rl * cl; in riem1mdt()
447 skpr2 = cl * (pst - 1.) * PetscSqrtScalar(2. / (*gaml * (*gaml - 1. + (*gaml + 1.) * pst))); in riem1mdt()
449 rarepr1 = gascl4 * 2. * cl * (1. - PetscPowScalar(pst, d__1)); in riem1mdt()
477 ustarl = *uxl - gascl4 * 2. * (cstarl - cl); in riem1mdt()
500 …ustarl = *uxl - (pst - 1.) * cl * PetscSqrtScalar(2. / (*gaml * (*gaml - 1. + (*gaml + 1.) * pst)… in riem1mdt()
501 …zl = *pl / cl * PetscSqrtScalar(*gaml * 2. * (*gaml - 1. + (*gaml + 1.) * pst)) * (*gaml - 1.… in riem1mdt()
523 …ustarl = *uxl - (pst - 1.) * cl * PetscSqrtScalar(2. / (*gaml * (*gaml - 1. + (*gaml + 1.) * pst))… in riem1mdt()
524 …zl = *pl / cl * PetscSqrtScalar(*gaml * 2. * (*gaml - 1. + (*gaml + 1.) * pst)) * (*gaml - 1. … in riem1mdt()
546 ustarl = *uxl - gascl4 * 2. * (cstarl - cl); in riem1mdt()