INTEGER Nx_ocn

     &           Nx_ocn  = 192,

      _RS AtmDepths_ocn  (Nx_ocn,Ny_ocn)

      _RL OcMxlD_ocn     (Nx_ocn,Ny_ocn)

      _RL SST_ocn        (Nx_ocn,Ny_ocn)

      _RL SSS_ocn        (Nx_ocn,Ny_ocn)

      _RL vSq_ocn        (Nx_ocn,Ny_ocn)

      _RL atmSLPr_ocn    (Nx_ocn,Ny_ocn)

      _RL HeatFlux_ocn   (Nx_ocn,Ny_ocn)

      _RL qShortWave_ocn (Nx_ocn,Ny_ocn)

      _RL TauX_ocn       (Nx_ocn,Ny_ocn)

      _RL TauY_ocn       (Nx_ocn,Ny_ocn)

      _RL FWFlux_ocn     (Nx_ocn,Ny_ocn)

      _RL SaltFlx_ocn    (Nx_ocn,Ny_ocn)

      _RL sIceMass_ocn   (Nx_ocn,Ny_ocn)

      Real*8  tmpfld(3,ROsize), rAc(Nx_ocn*Ny_ocn)

        lengthRec=Nx_ocn*Ny_ocn*WORDLENGTH*2

         CALL MDS_BYTESWAPR8( Nx_ocn*Ny_ocn, rAc )

          IF ( ijo.LT.1 .OR. ijo.GT.Nx_ocn*Ny_ocn ) THEN

     I                       Nx_ocn, Ny_ocn, 

     I                       Nx_ocn, Ny_ocn, 

     I                       Nx_ocn, Ny_ocn, 

     I                       Nx_ocn, Ny_ocn, 

     I                       Nx_ocn, Ny_ocn, sIceMass_ocn )

     I         Nx_atm, Ny_atm, atmSLPr_atm, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, atmSLPr_ocn )

     I         Nx_atm, Ny_atm, HeatFlux_atm, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, HeatFlux_ocn )

     I         Nx_atm, Ny_atm, qShortWave_atm, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, qShortWave_ocn )

     I         Nx_atm, Ny_atm, TauX_atm, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, TauX_ocn )

     I         Nx_atm, Ny_atm, TauY_atm, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, TauY_ocn )

     I         Nx_atm, Ny_atm, EvMPr_atm, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, FWFlux_ocn )

     I         Nx_atm, Ny_atm, SaltFlx_atm, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, SaltFlx_ocn )

     I         Nx_atm, Ny_atm, sIceMass_atm, Nx_ocn, Ny_ocn,

     I         Nx_ocn, Ny_ocn, OcMxlD_ocn, Nx_atm, Ny_atm,

     I         Nx_ocn, Ny_ocn, SST_ocn, Nx_atm, Ny_atm,

     I         Nx_ocn, Ny_ocn, SSS_ocn, Nx_atm, Ny_atm,

     I         Nx_ocn, Ny_ocn, vSq_ocn, Nx_atm, Ny_atm,

     I     Nx_ocn, Ny_ocn,

      CALL COUPSEND_R8TILES( ocnCompName, atmDepthName, Nx_ocn, Ny_ocn, 

     I                       ocnMxlDName, Nx_ocn, Ny_ocn, 

      CALL MITCOUPLER_TILE_REGISTER( ocnCompName, Nx_ocn, Ny_ocn )

      _RL  fld_ocn(Nx_ocn*Ny_ocn)

     I     Nx_ocn, Ny_ocn,