Searched refs:SclrNN (Results 1 – 3 of 3) sorted by relevance
260 real*8 SclrNN,qfac,dx,dy,dz,dmax local324 SclrNN= max(Sclr(e),zero) 370 rd = SclrNN*saKappaP2Inv/dwallsqqfact383 chi = SclrNN * viscInv !skipping the kiy kie for now399 tmp = SclrNN * k2d2Inv !eOkdP2408 rp = k2d2Inv / st**2 * (ep*st - SclrNN*stp)422 tmp1 = saCw1 * dP2Inv*SclrNN428 if(stp .lt. zero) tmp=tmp+SaCb1*stp*SclrNN430 if(fwp .gt. zero) tmp=tmp-tmp1*SclrNN*fwp433 srcR(e) = srcRat(e)*SclrNN
320 SclrNN= max(Sclr(e),zero) 337 rd=SclrNN*saKappaP2Inv/(dwall(e)**2*qfac)359 chi = SclrNN * viscInv !skipping the kiy kie for now375 tmp = SclrNN * k2d2Inv !eOkdP2377 stp = ep*k2d2Inv * fv2 *(one-two*SclrNN*dpod) + tmp*fv2p384 rp = k2d2Inv / st**2 * (ep*st - SclrNN*(stp+st*two*dpod)398 tmp1 = saCw1 * dP2Inv*SclrNN404 if(stp .lt. zero) tmp=tmp+SaCb1*stp*SclrNN406 if(fwp .gt. zero) tmp=tmp-tmp1*SclrNN*fwp409 srcR(e) = srcRat(e)*SclrNN
320 SclrNN= max(Sclr(e),zero) 334 rd=SclrNN*saKappaP2Inv/(dwall(e)**2*qfact)345 chi = SclrNN * viscInv !skipping the kiy kie for now361 tmp = SclrNN * k2d2Inv !eOkdP2370 rp = k2d2Inv / st**2 * (ep*st - SclrNN*stp)384 tmp1 = saCw1 * dP2Inv*SclrNN390 if(stp .lt. zero) tmp=tmp+SaCb1*stp*SclrNN392 if(fwp .gt. zero) tmp=tmp-tmp1*SclrNN*fwp395 srcR(e) = srcRat(e)*SclrNN