Lines Matching refs:dwall
252 & dwall(npro)
310 dwall = zero
312 dwall = dwall + shape_funct(:,n) * dwl(:,n)
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
451 dwall = zero
453 dwall = dwall + shape_funct(:,n) * dwl(:,n)
469 & dwall, gradV,