pk_cdi_r.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	pk_cdi_r (rqd, reynolds, beta, cdi_r)

Function/Subroutine Documentation

pk_cdi_r()

subroutine pk_cdi_r	(	real*8	rqd,
		real*8	reynolds,
		real*8	beta,
		real*8	cdi_r
	)

!
      implicit none
!
      real*8 rqd,reynolds,beta,cdi_r,frqd,cdi_se,cdi_noz
!      
      call pk_cdi_noz(reynolds,cdi_noz)
      call pk_cdi_se(reynolds,beta,cdi_se)
      
      frqd=0.008d0+0.992d0*exp(-5.5d0*rqd-3.5d0*rqd**2.d0)
!
      cdi_r=cdi_noz-frqd*(cdi_noz-cdi_se)
!      
      return