Lines Matching refs:e
263 integer e
319 do e = 1, npro
320 SclrNN= max(Sclr(e),zero)
325 dx=maxval(xl(e,:,1))-minval(xl(e,:,1))
326 dy=maxval(xl(e,:,2))-minval(xl(e,:,2))
327 dz=maxval(xl(e,:,3))-minval(xl(e,:,3))
333 qfac = sqrt(gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2
334 & +gradV(e,2,1)**2+gradV(e,2,2)**2+gradV(e,2,3)**2
335 & +gradV(e,3,1)**2+gradV(e,3,2)**2+gradV(e,3,3)**2)
336 qfac = max(qfac,1.0e-10)
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))
354 if (dwall(e) .ne. 0) dP2Inv = 1.0 / dwall(e)**2
364 if(Sclr(e).gt.zero) ep=one
374 s = absVort(e) !prd(e,2)
400 srcRat(e)= prat - ep*fw * tmp1
408 srcL(e) = -1.0*tmp
409 srcR(e) = srcRat(e)*SclrNN