Searched refs:evisc (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | getdiff.f | 53 real*8 xki, xki3, fv1, evisc, lvisc local
211 evisc = zero
215 evisc = evisc + ycl(e,n,6)
219 evisc = evisc/nwnode
220 xmut(e)= abs(evisc)
|
| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 206 double precision xki, xki3, fv1, evisc
231 evisc = zero
235 evisc = evisc + yl(e,n,6)
239 evisc = evisc/nwnode
240 rmu(e) = rmu(e) + abs(evisc)
|
| /phasta/phSolver/common/ |
| H A D | settauw.f | 21 & evisc(numnp)
27 evisc=zero
100 evisc(nodw)=tauw*dw/ub-rm
165 ev = evisc(mien(iblk)%p(i,j))
|