COMMON / RUNOFF_MAP_R / arROmap
_RL arROmap(ROsize)
& -fld_atm(ija)*arROmap(n)
& n,ijROatm(n),ijROocn(n),arROmap(n)
arROmap(n)=0.
arROmap(n)=tmpfld(3,n)/rAc(ijo)