Searched refs:utau (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | settauw.f | 54 ut=utau(ub,dw,rm,nodw,x(nodw,:)) ! find utau
185 function utau(u,y,rm,nodw,x) function
187 real*8 u,err,utau,yrmi,y,rm,yp,up,kup,f,dfds,rat,efac local
195 utau=0.04
201 yp=yrmi*utau
202 up=u/utau
208 rat=f*utau/dfds ! this is -f/dfds but we did not do 1/(-utau) yet.
209 utau=utau+rat
216 write(*,*) dfds,rat,utau
222 utau=sqrt(u/y*rm)
|