cd_Mcgreehan_Schotsch.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cd_mcgreehan_schotsch (rzdh, bdh, reynolds, cdu)

Function/Subroutine Documentation

cd_mcgreehan_schotsch()

subroutine cd_mcgreehan_schotsch	(	real*8	rzdh,
		real*8	bdh,
		real*8	reynolds,
		real*8	cdu
	)

!     
      implicit none
!     
      real*8 cdu,bdh,reynolds,cd_re,rzdh,cd_r
!     
      cd_re=0.5885d0+372d0/reynolds
!
!     the radius correction 
!
      cd_r=1-(0.008d0+0.992d0*exp(-5.5d0*rzdh-3.5d0*rzdh**2))
     &     *(1-cd_re)
!   
      cdu=1.d0-(1.d0-cd_r)*(1d0+1.3d0*exp(-1.606d0*(bdh*bdh)))
     &     *(0.435d0+0.021d0*bdh)
!     
      return 
!