dis_coi Subroutine

public subroutine dis_coi(Tc_4, wb_t, discoi)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	Tc_4
real(kind=r8),	intent(in)			::	wb_t
real(kind=r8),	intent(out)			::	discoi