_RL fld_ocn(Nx_ocn*Ny_ocn)
fld_ocn(ijo)=fld_ocn(ijo)
U fld_ocn )
O fld_ocn )
Real*8 fld_ocn(oNx, oNy)
fld_ocn(I,J)=0.
fld_ocn(I,J)=fld_atm(I,J)
fld_atm(I,J)=fld_ocn(I,J)
I fld_ocn,