INTEGER n, ijo, ija
ija=ijROatm(n)
& + fld_atm(ija)*arROmap(n)
& - fld_atm(ija)*arROmap(n)
INTEGER ijo, ija
ija = ijROatm(n) - 1
i = 1 + MOD(ija,Nx_atm)
j = 1 + ija/Nx_atm
ija = NINT(tmpfld(1,n))
IF ( ija.LT.1 .OR. ija.GT.Nx_atm*Ny_atm ) THEN
ijROatm(n) = ija