Lines Matching refs:e
263 integer e
319 do e = 1, npro
320 SclrNN= max(Sclr(e),zero)
323 dx=maxval(xl(e,:,1))-minval(xl(e,:,1))
324 dy=maxval(xl(e,:,2))-minval(xl(e,:,2))
325 dz=maxval(xl(e,:,3))-minval(xl(e,:,3))
331 qfac = sqrt(gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2
332 & +gradV(e,2,1)**2+gradV(e,2,2)**2+gradV(e,2,3)**2
333 & +gradV(e,3,1)**2+gradV(e,3,2)**2+gradV(e,3,3)**2)
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
350 if(Sclr(e).gt.zero) ep=one
360 s = absVort(e) !prd(e,2)
386 srcRat(e)= prat - ep*fw * tmp1
394 srcL(e) = -1.0*tmp
395 srcR(e) = srcRat(e)*SclrNN