Lines Matching refs:betaT
339 & betaT(npro), gamb(npro), c(npro),
458 betaT = exp(-Pe)
459 c = (alphap+betaT)/(alphap-betaT)
469 betaT(:) = Pe(:)*min(pt33*pt5*Pe(:),pt5)
474 betaT=betaT-(Ak*betaT**3+B*betaT**2+D*betaT+E)/(3*Ak
475 & *betaT**2+2*B*betaT+D)
478 rlam(:,i) = rlam(:,i)*(1/Pe(:))*betaT(:)
585 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
588 & u2*STau(:,4)+u3*STau(:,7)+betaT*STau(:,11))
590 & u2*STau(:,5)+u3*STau(:,8)+betaT*STau(:,12))
592 & u2*STau(:,6)+u3*STau(:,9)+betaT*STau(:,13))
594 & u2*STau(:,9)+u3*STau(:,10)+betaT*STau(:,14))
596 & u2*STau(:,13)+u3*STau(:,14)+betaT*STau(:,15))
617 betaT = T**2
619 Tau(:,5,1) = betaT(:)*STau(:,11)
620 Tau(:,5,2) = betaT(:)*STau(:,12)
621 Tau(:,5,3) = betaT(:)*STau(:,13)
622 Tau(:,5,4) = betaT(:)*STau(:,14)
623 Tau(:,5,5) = betaT(:)*STau(:,15)
801 & betaT(npro), gamb(npro), c(npro),
1047 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
1050 & u2*STau(:,4,k)+u3*STau(:,7,k)+betaT*STau(:,11,k))
1052 & u2*STau(:,5,k)+u3*STau(:,8,k)+betaT*STau(:,12,k))
1054 & u2*STau(:,6,k)+u3*STau(:,9,k)+betaT*STau(:,13,k))
1056 & u2*STau(:,9,k)+u3*STau(:,10,k)+betaT*STau(:,14,k))
1058 & u2*STau(:,13,k)+u3*STau(:,14,k)+betaT*STau(:,15,k))
1079 betaT = T**2
1081 Tau(:,5,1,k) = betaT(:)*STau(:,11,k)
1082 Tau(:,5,2,k) = betaT(:)*STau(:,12,k)
1083 Tau(:,5,3,k) = betaT(:)*STau(:,13,k)
1084 Tau(:,5,4,k) = betaT(:)*STau(:,14,k)
1085 Tau(:,5,5,k) = betaT(:)*STau(:,15,k)