cd_pk_albers.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cd_pk_albers (rad, d, xl, reynolds, p2, p1, beta, kappa, cd, u, T1, R)

Function/Subroutine Documentation

cd_pk_albers()

subroutine cd_pk_albers	(	real*8	rad,
		real*8	d,
		real*8	xl,
		real*8	reynolds,
		real*8	p2,
		real*8	p1,
		real*8	beta,
		real*8	kappa,
		real*8	cd,
		real*8	u,
		real*8	T1,
		real*8	R
	)

!      
      implicit none
!
      real*8 rad,d,xl,reynolds,p2,p1,beta,kappa,
     &     cd,r,u,t1
!     
      rad=rad
      d=d
      xl=xl
      reynolds=reynolds
      p2=p2
      p1=p1
      beta=beta
      kappa=kappa
      r=r
      u=u
      t1=t1

      
      cd=1.d0

      write(*,*) '*WARNING while using subroutine cd_pk_albers.f'
      write(*,*) 'cd implicitely taken equal to 1'
!
      return