psic Function

private function psic(k, l)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(in)			::	k
real(kind=rp),	intent(in)			::	l

Return Value real(kind=rp)

Contents

Source Code

psic

Source Code

  FUNCTION psic(k,l)
    IMPLICIT NONE
    REAL(rp) :: psic
    REAL(rp), INTENT(IN) :: k
    REAL(rp), INTENT(IN) :: l

    psic = (1.5_rp*k*l/C_PI)**(1.0_rp/3.0_rp)
  END FUNCTION psic