_RL exf_outscal_vstress
& exf_outscal_vstress,
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj)
fv(i,j,bi,bj) = exf_outscal_vstress*
& exf_outscal_hflux, exf_outscal_ustress, exf_outscal_vstress,
exf_outscal_vstress = 1. _d 0