_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