jhan_JaC_Redux_JAC_5.7_Radmaster_EffectiveExtinctCoeffs

Effective extinction co-efficients

DO i = 1,mp DO b = 1, 2

    !IF mask is present we are doing the beam component then: 

if( present(mask)) then
  !then ONLY IF it is sunlit and vegetated -else default 
  if( mask(i) ) Eff_ExtCoeff(i,b) = ExtCoeff(i) * c1(i,b)
else
  Eff_ExtCoeff(i,b) = ExtCoeff(i) * c1(i,b)
endif

enddo enddo