Searched refs:VelBase (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | BCprofileKW.f | 2 subroutine BCprofileScaleKW(PresBase,VelBase,BC,yold) argument
6 real*8 PresBase, VelBase local
33 BC(kk,3)=VelBase*cos((pi/180)*Alpha)
34 BC(kk,4)=VelBase*sin((pi/180)*Alpha)
44 subroutine BCprofileInitKW(PresBase,VelBase,BC) argument
48 real*8 PresBase, VelBase local
63 VelBase=BC(kk,3)
|
| H A D | itrdrv.f | 310 call BCprofileInitKW(PresBase,VelBase,BC)
329 call BCprofileScaleKW(PresBase,VelBase,BC,yold)
|