INTEGER n, ijo, ija
DO ijo=1,Nx_ocn*Ny_ocn
fld_ocn(ijo) = 0.
ijo=ijROocn(n)
fld_ocn(ijo) = fld_ocn(ijo)
add2ocn(ijo) = add2ocn(ijo)
INTEGER ijo, ija
ijo = ijROocn(n) - 1
i = 1 + MOD(ijo,Nx_ocn)
j = 1 + ijo/Nx_ocn
ijo = NINT(tmpfld(2,n))
IF ( ijo.LT.1 .OR. ijo.GT.Nx_ocn*Ny_ocn ) THEN
ELSEIF ( rAc(ijo).GT.0. ) THEN
arROmap(n) = tmpfld(3,n)/rAc(ijo)
ijROocn(n) = ijo