Home
last modified time | relevance | path

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

/phasta/phSolver/compressible/
H A De3source.f226 & dist2w, vort, gVnrm, con,
260 & dist2w (npro), shape(npro,nshl),
306 dist2w(i)=min(dmax,dist2w(i))
308 rd=sclrm(i)*saKappaP2Inv/(dist2w(i)**2*gVnrm(i)+1.0d-12)
310 dist2w(i)=dist2w(i)-fd*max(zero,dist2w(i)-dmax)
315 elDwl(:)=elDwl(:)+dist2w(:)
324 Stilde = vort + sclrm*fv2/(saKappa*dist2w)**2!unfix
327 r(:) = sclrm(:)/Stilde(:)/(saKappa*dist2w(:))**2
368 & -(saCw1*fw - saCb1*ft2/saKappa**2)*(sclrm/dist2w/dist2w)
371 & -(saCw1*fw - saCb1*ft2/saKappa**2)*(sclrm/dist2w/dist2w)
[all …]
H A De3ivar.f499 & dist2w) argument
571 & dist2w(npro),
594 dist2w = zero
608 dist2w = dist2w + shape(:,n) * dwl(:,n)
H A De3.f367 & dist2w(npro), sgn(npro,nshl),
438 & dist2w)
446 & dist2w, vort, gVnrm, con,
/phasta/phSolver/incompressible/
H A De3ivar.f68 dimension tmp(npro), tmp1(npro), dkei(npro), dist2w(npro)
109 dist2w = zero
111 dist2w = dist2w + shpfun(:,n) * dwl(:,n)