jhan_JaC_Redux_JAC_5.7_Radmaster_BeamFraction

Beam Fraction

! Define beam fraction, fbeam:

RadFbeam(:,1) = spitter(mp, cpi, real(metDoy), coszen, SW_down(:,1))

RadfBeam(:,2) = spitter(mp, cpi, real(metDoy), coszen, SW_down(:,2))

! coszen is set during met data read in.

WHERE (coszen < Ccoszen_tols_huge ) RadFbeam(:,1) = 0.0 RadFbeam(:,2) = 0.0 END WHERE