_RL exf_outscal_sflux
& exf_outscal_sflux,
EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
& exf_outscal_sflux * ( sflux_exfremo_intercept +
& exf_outscal_sflux, exf_outscal_apressure,
exf_outscal_sflux = 1. _d 0