EffectiveExtinctCoeffs Subroutine

private subroutine EffectiveExtinctCoeffs(EffExtCoeff_beam, EffExtCoeff_dif, mp, nrb, veg_mask, ExtCoeff_beam, ExtCoeff_dif, c1)

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: EffExtCoeff_beam(mp,nrb)
real, intent(out) :: EffExtCoeff_dif(mp,nrb)
integer, intent(in) :: mp
integer, intent(in) :: nrb
logical :: veg_mask(mp)
real, intent(in) :: ExtCoeff_beam(mp)
real, intent(in) :: ExtCoeff_dif(mp)
real :: c1(mp,nrb)