42 real(kind=
rp),
intent(in) :: y, delta, u
52 real(kind=
rp),
intent(in) :: y, delta, u
57 if (arg .gt. 1.0_rp)
then
68 real(kind=
rp),
intent(in) :: y, delta, u
72 arg = ( 2.0_rp * (y / delta) - (y / delta)**2 )
74 if (arg .gt. 1.0_rp)
then
85 real(kind=
rp),
intent(in) :: y, delta, u
89 arg = ( 3.0_rp / 2.0_rp * (y / delta) - 0.5_rp * (y / delta)**3 )
91 if (arg .gt. 1.0_rp)
then
103 real(kind=
rp),
intent(in) :: y, delta, u
107 arg = 2.0_rp * (y / delta) - 2.0_rp * (y / delta)**3 + (y / delta)**4
109 if (arg .gt. 1.0_rp)
then
120 real(kind=
rp),
intent(in) :: y, delta, u
122 real(kind=
rp),
parameter :: pi = 4.0_rp * atan(1.0_rp)
125 arg = (pi / 2.0_rp) * (y/delta)
127 if (arg .gt. 0.5_rp * pi)
then
Abstract interface for computing a Blasius flow profile.
real(kind=rp) function blasius_quadratic(y, delta, u)
Quadratic approximate Blasius Profile .
real(kind=rp) function blasius_sin(y, delta, u)
Sinusoidal approximate Blasius Profile .
real(kind=rp) function blasius_cubic(y, delta, u)
Cubic approximate Blasius Profile .
real(kind=rp) function blasius_linear(y, delta, u)
Linear approximate Blasius profile .
real(kind=rp) function blasius_quartic(y, delta, u)
Quartic approximate Blasius Profile .
integer, parameter, public rp
Global precision used in computations.