Lines Matching refs:rho
1 subroutine e3tau (rho, cp, rmu, argument
39 dimension rho(npro), con(npro),
101 fact=pt5*rho*uh1/rmu
114 tau(:,2)=tau(:,2)/rho
162 tau(:,2)=rho**2*((two*dts)**2
169 tau(:,1)=pt125*fact/(rho*(gijd(:,1)+gijd(:,3)+gijd(:,6)))*taucfct
284 subroutine e3tau_nd (rho, cp, rmu, T, argument
324 dimension rho(npro), con(npro),
370 call e3eig1 (rho, T, cp,
587 Tau(:,1,1) = rho*T*(STau(:,1)+u1*STau(:,2)+
589 Tau(:,1,2) = rho*T*(STau(:,2)+u1*STau(:,3)+
591 Tau(:,1,3) = rho*T*(STau(:,4)+u1*STau(:,5)+
593 Tau(:,1,4) = rho*T*(STau(:,7)+u1*STau(:,8)+
595 Tau(:,1,5) = rho*T*(STau(:,11)+u1*STau(:,12)+
745 subroutine e3tau_nd_modal (rho, cp, rmu, T,
786 dimension rho(npro), con(npro),
832 call e3eig1 (rho, T, cp,
1049 Tau(:,1,1,k) = rho*T*(STau(:,1,k)+u1*STau(:,2,k)+
1051 Tau(:,1,2,k) = rho*T*(STau(:,2,k)+u1*STau(:,3,k)+
1053 Tau(:,1,3,k) = rho*T*(STau(:,4,k)+u1*STau(:,5,k)+
1055 Tau(:,1,4,k) = rho*T*(STau(:,7,k)+u1*STau(:,8,k)+
1057 Tau(:,1,5,k) = rho*T*(STau(:,11,k)+u1*STau(:,12,k)+
1211 subroutine e3tauSclr(rho, rmu, A0t,
1250 dimension rho(npro), T(npro),
1317 taut(:)=taut(:)/rho