cd_own_albers.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cd_own_albers (p1, p2, xl, d, cd, u, T1, R, kappa)

Function/Subroutine Documentation

cd_own_albers()

subroutine cd_own_albers	(	real*8	p1,
		real*8	p2,
		real*8	xl,
		real*8	d,
		real*8	cd,
		real*8	u,
		real*8	T1,
		real*8	R,
		real*8	kappa
	)

!
      implicit none
!
      real*8 d,xl,p1,p2,cd,t1,r,kappa,u
!
      p1=p1
      p2=p2
      xl=xl
      d=d
      u=u
      t1=t1
      r=r
      kappa=kappa
      cd=1.d0
      write(*,*) '*WARNING while using subroutine cd_own_albers.f'
      write(*,*) 'cd implicitely taken equal to 1'

!     
      return
!