Lines Matching refs:rm
28 rm=datmat(1,2,1)
54 ut=utau(ub,dw,rm,nodw,x(nodw,:)) ! find utau
92 BC(nodw,7)=tauw*dw/ub-rm
100 evisc(nodw)=tauw*dw/ub-rm
108 BC(nodw,7)=savarw(up,rm,saCv1,nodw,x(nodw,:))
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)
252 function savarw(up,rm,cv1,nodw,x)
254 real*8 err,savarw,rm,up,cv1,f,dfds,rat,efac local
261 savarw=rm*cv1*1.2599 ! inflection point chi=cv1*cuberoot(2)
265 xmut=rm*kappa*efac*(exp(kappa*up)-1.0-kappa*up
268 chi3=savarw/rm
281 write(*,*) up,rm
284 savarw=10000.0*rm