&' Sea level ini.: ',mult_etan0
_RL mult_etan0
& mult_etan0,
& mult_etan0, mult_uvel0, mult_vvel0,
mult_etan0 = 0. _d 0
& + mult_etan0 * objf_etan0(bi,bj)