Home
last modified time | relevance | path

Searched refs:Alpha (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/compressible/
H A DBCprofileKW.f9 real*8 Alpha, AlphaAmp, AlphaFreq local
18 Alpha=AlphaAmp*sin(two*pi*AlphaFreq*((lstep-tsBase)+1)*Delt(1)) ! pressure disturbance
33 BC(kk,3)=VelBase*cos((pi/180)*Alpha)
34 BC(kk,4)=VelBase*sin((pi/180)*Alpha)