calc_rhoch Subroutine

public subroutine calc_rhoch(c1, rhoch, mp, nrb, taul, refl)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(out)			::	c1(mp,nrb)
real,	intent(out)			::	rhoch(mp,nrb)
integer,	intent(in)			::	mp
integer,	intent(in)			::	nrb
real,	intent(in)			::	taul(mp,nrb)
real,	intent(in)			::	refl(mp,nrb)