Lines Matching refs:yl
1 subroutine getDiff( dwl,yl, shape, xmudmi, xl, rmu, rho) argument
9 real*8 yl(npro,nshl,ndof), rmu(npro), xmudmi(npro,ngauss),
51 Sclr = Sclr + shape(:,n) * yl(:,n,isc)
89 call AddEddyViscSA(yl, shape, rmu)
92 call AddEddyViscKE(yl, dwl, shape, rho, sigmaInv, rmu)
129 subroutine getdiffsclr(shape, dwl, yl, diffus) argument
136 real*8 yl(npro,nshl,ndof), dwl(npro,nshl), shape(npro,nshl) local
143 call AddSAVar(yl, shape, diffus)
151 call AddEddyViscKE(yl, dwl, shape, rho, sigmaInv, diffus)
191 subroutine AddEddyViscSA(yl,shape,rmu)
196 & yl
215 u1=yl(e,n,2)
216 u2=yl(e,n,3)
217 u3=yl(e,n,4)
235 evisc = evisc + yl(e,n,6)
265 Turb = Turb + shape(e,n) * yl(e,n,6)
278 subroutine AddSAVar(yl,shape,rmu) argument
283 & yl
301 u1=yl(e,n,2)
302 u2=yl(e,n,3)
303 u3=yl(e,n,4)
317 savarw = ev2sa(yl(e,n,6),datmat(1,2,1),saCv1)
325 savar = savar + shape(e,n) * yl(e,n,6)
336 subroutine AddEddyViscKE(yl, dwl, shape, rho, sigmaInv, rmu) argument
341 & yl
360 kay = kay + shape(e,n)*yl(e,n,6)
361 epsilon = epsilon + shape(e,n)*yl(e,n,7)