Home
last modified time | relevance | path

Searched refs:stabdis (Results 1 – 2 of 2) sorted by relevance

/phasta/phSolver/incompressible/
H A Ditrdrv.f870 real*8, allocatable, dimension(:) :: stabdis,cdelsq1 local
880 allocate (stabdis(nfath))
897 & iBC, BC, stabdis, xavegt3)
956 & xavegt2, stabdis)
997 deallocate (stabdis)
H A DadvLES.f1273 & iBC, BC, stabdis, xavegt) argument
1305 & xavegr(nfath,12), stabdis(nfath),
1563 stabdis(:) = xavegr(:,10)
1575 stabdis(:) = xaveg(:,10)
1609 & xavegt, stabdis) argument
1640 & xavegr(nfath,12), stabdis(nfath),
2038 if (stabdis(i) .gt. zero) then
2039 cdel(i) = (two*xavegr(i,11)-stabdis(i))/xavegr(i,12)
2040 xnume(i) = two*xavegr(i,11)-stabdis(i)
2049 if (stabdis(i) .gt. zero) then
[all …]