par.to.sw function

Convert PAR to shortwave