Lines Matching refs:cp
1 subroutine e3tau (rho, cp, rmu, argument
40 & cp(npro), u1(npro),
284 subroutine e3tau_nd (rho, cp, rmu, T, argument
325 & cp(npro), u1(npro),
353 eb1 = cp*T - pt5*(u1**2+u2**2+u3**2)
370 call e3eig1 (rho, T, cp,
585 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
745 subroutine e3tau_nd_modal (rho, cp, rmu, T,
787 & cp(npro), u1(npro),
815 eb1 = cp*T - pt5*(u1**2+u2**2+u3**2)
832 call e3eig1 (rho, T, cp,
1047 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
1251 & cp(npro), u1(npro),