Lines Matching refs:tauM
3 & rmu, tauC, tauM, argument
34 & tauC(npro), tauM(npro), tauBar(npro),
77 tauM = ( (two*dts)**2
97 fact = sqrt(tauM)
101 tauM = one/fact
119 tauM =
126 tauM=fact/taum ! here we have (u_i g^{ij} u^j)^{-1} approx 4/u^2h^2
130 tauC=tauM*(one+tauM*rmu*rmu)
167 tauM = rho ** 2
178 fact=sqrt(tauM)
181 tauM=one/fact ! turn it right side up.
186 tauM=(gijd(:,1)+gijd(:,2)+gijd(:,3))/unorm ! here we have 4/u^2h^2
190 tauC=tauM*(one+tauM*rmu*rmu)
227 tauM = rho ** 2
238 fact=sqrt(tauM)
241 tauM=one/fact ! turn it right side up.
259 tauM =
269 tauM=sqrt(tauM/fact)*two
270 tauC=pt5*tauM*min(one,pt5*tauM/rmu)*taucfct
294 tauM =min(dts,min(fact,fact*fact*unorm*pt33/rmu))
309 tauBar = tauM / sqrt(tauBar)
315 uBar(:,1) = u1 - tauM * rLui(:,1)*rhoinv
316 uBar(:,2) = u2 - tauM * rLui(:,2)*rhoinv
317 uBar(:,3) = u3 - tauM * rLui(:,3)*rhoinv
338 real*8 gijd(npro,6), tauM(npro) local
362 tauM = rho ** 2
382 tauM = one/sqrt(tauM)
386 uBar(:,1) = ui(:,1) - tauM * rLui(:,1)
387 uBar(:,2) = ui(:,2) - tauM * rLui(:,2)
388 uBar(:,3) = ui(:,3) - tauM * rLui(:,3)