Lines Matching refs:T

284       subroutine e3tau_nd  (rho,    cp,	    rmu,   T,  argument
338      &            T(npro),      pres(npro),     alphap(npro),
351       c  = sqrt( (gamma * Rgas) * T )
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
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)+
599         Tau(:,2,1) = T(:)*(STau(:,2) + u1(:)*STau(:,11))
600         Tau(:,2,2) = T(:)*(STau(:,3) + u1(:)*STau(:,12))
601         Tau(:,2,3) = T(:)*(STau(:,5) + u1(:)*STau(:,13))
602         Tau(:,2,4) = T(:)*(STau(:,8) + u1(:)*STau(:,14))
603         Tau(:,2,5) = T(:)*(STau(:,12) + u1(:)*STau(:,15))
605         Tau(:,3,1) = T(:)*(STau(:,4) + u2(:)*STau(:,11))
606         Tau(:,3,2) = T(:)*(STau(:,5) + u2(:)*STau(:,12))
607         Tau(:,3,3) = T(:)*(STau(:,6) + u2(:)*STau(:,13))
608         Tau(:,3,4) = T(:)*(STau(:,9) + u2(:)*STau(:,14))
609         Tau(:,3,5) = T(:)*(STau(:,13) + u2(:)*STau(:,15))
611         Tau(:,4,1) = T(:)*(STau(:,7) + u3(:)*STau(:,11))
612         Tau(:,4,2) = T(:)*(STau(:,8) + u3(:)*STau(:,12))
613         Tau(:,4,3) = T(:)*(STau(:,9) + u3(:)*STau(:,13))
614         Tau(:,4,4) = T(:)*(STau(:,10) + u3(:)*STau(:,14))
615         Tau(:,4,5) = T(:)*(STau(:,14) + u3(:)*STau(:,15))
617         betaT = T**2
745       subroutine e3tau_nd_modal  (rho,    cp,	    rmu,   T,
800      &            T(npro),      pres(npro),     alphap(npro),
813       c  = sqrt( (gamma * Rgas) * T )
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
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)+
1061          Tau(:,2,1,k) = T(:)*(STau(:,2,k) + u1(:)*STau(:,11,k))
1062          Tau(:,2,2,k) = T(:)*(STau(:,3,k) + u1(:)*STau(:,12,k))
1063          Tau(:,2,3,k) = T(:)*(STau(:,5,k) + u1(:)*STau(:,13,k))
1064          Tau(:,2,4,k) = T(:)*(STau(:,8,k) + u1(:)*STau(:,14,k))
1065          Tau(:,2,5,k) = T(:)*(STau(:,12,k) + u1(:)*STau(:,15,k))
1067          Tau(:,3,1,k) = T(:)*(STau(:,4,k) + u2(:)*STau(:,11,k))
1068          Tau(:,3,2,k) = T(:)*(STau(:,5,k) + u2(:)*STau(:,12,k))
1069          Tau(:,3,3,k) = T(:)*(STau(:,6,k) + u2(:)*STau(:,13,k))
1070          Tau(:,3,4,k) = T(:)*(STau(:,9,k) + u2(:)*STau(:,14,k))
1071          Tau(:,3,5,k) = T(:)*(STau(:,13,k) + u2(:)*STau(:,15,k))
1073          Tau(:,4,1,k) = T(:)*(STau(:,7,k) + u3(:)*STau(:,11,k))
1074          Tau(:,4,2,k) = T(:)*(STau(:,8,k) + u3(:)*STau(:,12,k))
1075          Tau(:,4,3,k) = T(:)*(STau(:,9,k) + u3(:)*STau(:,13,k))
1076          Tau(:,4,4,k) = T(:)*(STau(:,10,k) + u3(:)*STau(:,14,k))
1077          Tau(:,4,5,k) = T(:)*(STau(:,14,k) + u3(:)*STau(:,15,k))
1079          betaT = T**2
1250       dimension rho(npro),                 T(npro),