Lines Matching refs:e
267 integer e,n local
323 do e = 1, npro
324 SclrNN= max(Sclr(e),zero)
348 dx=maxval(xl(e,:,1))-minval(xl(e,:,1))
349 dy=maxval(xl(e,:,2))-minval(xl(e,:,2))
350 dz=maxval(xl(e,:,3))-minval(xl(e,:,3))
355 dwall(e) = min(dmax,dwall(e))
360 & gradV(e,1,1)**2+gradV(e,1,2)**2+gradV(e,1,3)**2
361 & + gradV(e,2,1)**2+gradV(e,2,2)**2+gradV(e,2,3)**2
362 & + gradV(e,3,1)**2+gradV(e,3,2)**2+gradV(e,3,3)**2 )
369 dwallsqqfact = max(dwall(e)**2*qfac,1.0d-12)
372 dwall(e) = dwall(e)-fd*max(zero,dwall(e)-dmax)
378 if (dwall(e) .ne. 0) dP2Inv = 1.0 / dwall(e)**2
388 if(Sclr(e).gt.zero) ep=one
398 s = absVort(e) !prd(e,2)
424 srcRat(e)= prat - ep*fw * tmp1
432 srcL(e) = -1.0*tmp
433 srcR(e) = srcRat(e)*SclrNN