Lines Matching refs:e
13 integer n, e
137 integer n, e local
205 integer e, n
209 do e = 1, npro
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)
240 rmu(e) = rmu(e) + abs(evisc)
265 Turb = Turb + shape(e,n) * yl(e,n,6)
267 xki = abs(Turb)/rmu(e)
270 rmu(e) = rmu(e) + fv1*abs(Turb)
292 integer e, n
295 do e = 1, npro
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)
318 savar = savar + shape(e,n) * savarw
325 savar = savar + shape(e,n) * yl(e,n,6)
328 rmu(e)=datmat(1,2,1)
329 rmu(e) = (rmu(e) + abs(savar)) * saSigmaInv
353 integer e,n
355 do e = 1, npro
360 kay = kay + shape(e,n)*yl(e,n,6)
361 epsilon = epsilon + shape(e,n)*yl(e,n,7)
362 dw = dw + shape(e,n)*dwl(e,n)
365 if(kay.lt.1.0e-32) kay=0.0
367 if ( abs(epsilon) .gt.1.e-32) then
371 Rey = sqrt(kay) * dw * rho(e) / rmu(e)
372 Ret = kay*kay * epsInv * rho(e) / rmu(e)
378 eviscKE=rho(e)*ke_C_mu*fmuKE*kay*kay*epsInv
380 rmu(e) = rmu(e) + eviscKE*sigmaInv