Lines Matching refs:y
1 subroutine settauw (y, x, BC, argument
16 dimension y(nshg,ndofl), x(numnp,nsd),
35 ull(:)=y(otwn(nodw),1:3)
63 ull(:)=y(otwn(nodw),1:3)
104 & y(nodw,1)**2 !
105 & +y(nodw,2)**2 ! flow is auto-|| at boundary
106 & +y(nodw,3)**2 !
179 function utaul(u,y,rm)
185 function utau(u,y,rm,nodw,x)
187 real*8 u,err,utau,yrmi,y,rm,yp,up,kup,f,dfds,rat,efac local
196 yrmi=y/rm
214 write(*,*) u, y, rm
222 utau=sqrt(u/y*rm)