jhan_JaC_Redux_JAC_5.7_Radmaster_EffectiveSurfaceReflectance

Effective Surface Reflectance

Same calc used for diffuse/direct components.

DO i = 1,mp DO b = 1, 2 IF( mask(i) ) then

         ! Calculate effective beam reflectance (fraction):

     EffRefl(i,b) = CanopyRefl(i,b) ( AlbSnow(i,b) - CanopyRefl(i,b) ) * CanopyTransmit(i,b)^2

endif

END DO END DO