I fld_atm,
_RL fld_atm(Nx_atm*Ny_atm)
& + fld_atm(ija)*arROmap(n)
& - fld_atm(ija)*arROmap(n)
Real*8 fld_atm(aNx, aNy)
fld_ocn(I,J)=fld_atm(I,J)
O fld_atm )
fld_atm(I,J)=0.
fld_atm(I,J)=fld_ocn(I,J)