Lines Matching refs:rmu
1 subroutine e3tau (rho, cp, rmu, argument
48 dimension rmu(npro), cv(npro),
101 fact=pt5*rho*uh1/rmu
135 fact=h2o2u*h2o2u*rk*celt/rmu
138 tau(:,3)=min(tau(:,3),fact*rmu/con)*temper
166 & +fff*rmu**2*(gijd(:,1)**2 + gijd(:,3)**2 + gijd(:,6)**2 +
284 subroutine e3tau_nd (rho, cp, rmu, T, argument
333 dimension rmu(npro), cv(npro),
745 subroutine e3tau_nd_modal (rho, cp, rmu, T,
795 dimension rmu(npro), cv(npro),
1211 subroutine e3tauSclr(rho, rmu, A0t,
1257 dimension rmu(npro), A0t(npro),
1318 taut(:)=min(taut(:),h2o2u*h2o2u*rk*pt66*saSigma/rmu)