Home
last modified time | relevance | path

Searched refs:dwall (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/compressible/
H A Dd2wall.f2 subroutine D2wall (dwall, x) argument
17 dimension x(numnp,nsd), dwall(numnp),
108 dwall=1.0e32
115 if ( dwall(i).gt.distance ) dwall(i) = distance
119 dwall=sqrt(dwall)
/phasta/phSolver/incompressible/
H A De3source.f252 & dwall(npro) local
314 dwall = zero
316 dwall = dwall + shape_funct(:,n) * dwl(:,n)
355 dwall(e) = min(dmax,dwall(e))
369 dwallsqqfact = max(dwall(e)**2*qfac,1.0d-12)
372 dwall(e) = dwall(e)-fd*max(zero,dwall(e)-dmax)
378 if (dwall(e) .ne. 0) dP2Inv = 1.0 / dwall(e)**2
475 dwall = zero
477 dwall = dwall + shape_funct(:,n) * dwl(:,n)
493 & dwall, gradV,
/phasta/phSolver/incompressible/e3source/
H A De3source.fimplicit252 & dwall(npro)
310 dwall = zero
312 dwall = dwall + shape_funct(:,n) * dwl(:,n)
337 rd=SclrNN*saKappaP2Inv/(dwall(e)**2*qfac)
343 if (dwall(e) .ne. 0)
344 & rdp = saKappaP2Inv /(qfac * dwall(e)**2)
348 dmaxf = max(zero,dwall(e)-dmax)
349 dwall(e)=dwall(e)-fd*dmaxf
350 dpod = -fdp*dmaxf/dwall(e)
351 c DES97 dwall(e)=min(dmax,dwall(e))
[all …]
H A De3source.fRHSonly252 & dwall(npro)
310 dwall = zero
312 dwall = dwall + shape_funct(:,n) * dwl(:,n)
334 rd=SclrNN*saKappaP2Inv/(dwall(e)**2*qfact)
336 dwall(e)=dwall(e)-fd*max(zero,dwall(e)-dmax)
337 c DES97 dwall(e)=min(dmax,dwall(e))
340 if (dwall(e) .ne. 0) dP2Inv = 1.0 / dwall(e)**2
437 dwall = zero
439 dwall = dwall + shape_funct(:,n) * dwl(:,n)
455 & dwall, gradV,