Searched refs:efac (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | settauw.f | 187 real*8 u,err,utau,yrmi,y,rm,yp,up,kup,f,dfds,rat,efac local
199 efac=0.1108 ! exp(-kappa*B)
206 f= up-yp+efac*(exp(kup)-1.0-kup - kup2*pt5 - kup3*sxth)
207 dfds=up+yp+efac*(exp(kup)*kup-kup - kup2 - kup3*pt5) !/-utau in rat
254 real*8 err,savarw,rm,up,cv1,f,dfds,rat,efac local
264 efac=0.1108 ! exp(-kappa*B)
265 xmut=rm*kappa*efac*(exp(kappa*up)-1.0-kappa*up
|
| /phasta/phSolver/incompressible/ |
| H A D | getdiff.f | 161 real*8 err,ev2sa,rm,cv1,f,dfds,rat,efac local
169 efac=0.1108 ! exp(-kappa*B)
|