jhan_temp_beamFraction

subroutine BeamFraction(...)

...

...

  ! 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 )
     RadFbeam(:,1) = 0.0
     RadFbeam(:,2) = 0.0
  END WHERE

End subroutine BeamFraction

Previous