Searched refs:cstarl (Results 1 – 1 of 1) sorted by relevance
418 static PetscScalar gascl4, gascr4, cstarl, dpstar, cstarr; in riem1mdt() local476 cstarl = PetscSqrtScalar(*gaml * *pstar / *rstarl); in riem1mdt()477 ustarl = *uxl - gascl4 * 2. * (cstarl - cl); in riem1mdt()478 zl = *rstarl * cstarl; in riem1mdt()545 cstarl = PetscSqrtScalar(*gaml * *pstar / *rstarl); in riem1mdt()546 ustarl = *uxl - gascl4 * 2. * (cstarl - cl); in riem1mdt()547 zl = *rstarl * cstarl; in riem1mdt()