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