_RL fld_atm(Nx_atm*Ny_atm)
& -fld_atm(ija)*arROmap(n)
I fld_atm,
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)