_RL exf_outscal_swflux
& exf_outscal_swflux,
Qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj)
& exf_outscal_swflux, exf_outscal_sst, exf_outscal_sss,
exf_outscal_swflux = 1. _d 0