2 calls to
REDUCE_FLUX
SWRAD
SWRAD