Searched refs:Stheta (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | e3source.f | 17 real*8 r, Stheta, dpdz, rP5 local
29 Stheta = dpdz * sin(0.5*pi*rP5)
31 src(iel,1) = -xx(iel,2)/r * Stheta
32 src(iel,2) = xx(iel,1)/r * Stheta
|
| /phasta/phSolver/incompressible/e3source/ |
| H A D | e3source.fimplicit | 17 real*8 r, Stheta, dpdz, rP5
29 Stheta = dpdz * sin(0.5*pi*rP5)
31 src(iel,1) = -xx(iel,2)/r * Stheta
32 src(iel,2) = xx(iel,1)/r * Stheta
|
| H A D | e3source.fRHSonly | 17 real*8 r, Stheta, dpdz, rP5
29 Stheta = dpdz * sin(0.5*pi*rP5)
31 src(iel,1) = -xx(iel,2)/r * Stheta
32 src(iel,2) = xx(iel,1)/r * Stheta
|