_RL exf_outscal_apressure
& exf_outscal_apressure,
pLoad(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj)
& exf_outscal_sflux, exf_outscal_apressure,
exf_outscal_apressure= 1. _d 0