CrownDepth Subroutine

public subroutine CrownDepth(height, crown_depth)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	height
real(kind=r8),	intent(out)			::	crown_depth