jhan_JaC_Redux_JAC_5.7_Radmaster_FbeamRadAlbedo

Total albedo to SW

! Compute total albedo to SW given the Effective Surface Reflectance however 
! we don't need to do this and certainly not on rad call where we don't have RadFbeam yet

! Initialise total albedo:

RadAlbedo = AlbSnow

DO i = 1,mp

!nrb -1 -nrb shouldnt be =3 anyway

DO b = 1, 2

IF( veg_mask(i) )                                      &
   RadAlbedo(i,b) = ( 1. - RadFbeam(i,b) )* EffSurfRefl_dif(i,b) + RadFbeam(i,b) * EffSurfRefl_beam(i,b)

END DO END DO