INTEGER Nx_ocn

     &           Nx_ocn  = 192,

      INTEGER Nx_ocn

     &           Nx_ocn  = 90,

      INTEGER Nx_ocn

     &           Nx_ocn  = 90,

      _RL landMask_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 fluxCO2_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)

      _RL aCO2_ocn       (Nx_ocn,Ny_ocn)

      _RL wSpeed_ocn     (Nx_ocn,Ny_ocn)

      _RL sIceFrac_ocn   (Nx_ocn,Ny_ocn)

     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,

     I                       ocnMxlDName, Nx_ocn, Ny_ocn,

      CALL MITCOUPLER_TILE_REGISTER( ocnCompName, Nx_ocn, Ny_ocn )

      DO i=1,Nx_ocn

      CALL COUPSEND_R8TILES( ocnCompName, atmLandName, Nx_ocn, Ny_ocn,

     I                       Nx_ocn, Ny_ocn, atmSLPr_ocn )

     I                       Nx_ocn, Ny_ocn, HeatFlux_ocn )

     I                       Nx_ocn, Ny_ocn, qShortWave_ocn )

     I                       Nx_ocn, Ny_ocn, TauX_ocn )

     I                       Nx_ocn, Ny_ocn, TauY_ocn )

     I                       Nx_ocn, Ny_ocn, FWFlux_ocn )

     I                       Nx_ocn, Ny_ocn, SaltFlx_ocn )

     I                       Nx_ocn, Ny_ocn, sIceMass_ocn )

     I                       Nx_ocn, Ny_ocn, aCO2_ocn )

     I                       Nx_ocn, Ny_ocn, wSpeed_ocn )

     I                       Nx_ocn, Ny_ocn, SIceFrac_ocn )

      _RL landMask_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 fluxCO2_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)

      _RL saltPlmFlx_ocn (Nx_ocn,Ny_ocn)

      _RL RunOff_ocn     (Nx_ocn,Ny_ocn)

      _RL aCO2_ocn       (Nx_ocn,Ny_ocn)

      _RL wSpeed_ocn     (Nx_ocn,Ny_ocn)

      _RL sIceFrac_ocn   (Nx_ocn,Ny_ocn)

      _RL sIceThick_ocn  (Nx_ocn,Ny_ocn)

      _RL sIceSnowH_ocn  (Nx_ocn,Ny_ocn)

      _RL sIceQ1_ocn     (Nx_ocn,Ny_ocn)

      _RL sIceQ2_ocn     (Nx_ocn,Ny_ocn)

      _RL  fld_ocn(Nx_ocn*Ny_ocn)

      _RL  add2ocn(Nx_ocn*Ny_ocn)

        DO ijo=1,Nx_ocn*Ny_ocn

        i = 1 + MOD(ijo,Nx_ocn)

        j = 1 + ijo/Nx_ocn

        DO i=1,Nx_ocn

     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,

     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,

     I                       ocnMxlDName, Nx_ocn, Ny_ocn,

      CALL MITCOUPLER_TILE_REGISTER( ocnCompName, Nx_ocn, Ny_ocn )

     I           Nx_ocn, Ny_ocn, sIceQ2_ocn, Nx_atm, Ny_atm,

     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, fluxCO2_ocn, Nx_atm, Ny_atm,

     I           Nx_ocn, Ny_ocn, SIceFrac_ocn, Nx_atm, Ny_atm,

     I           Nx_ocn, Ny_ocn, sIceThick_ocn, Nx_atm, Ny_atm,

     I           Nx_ocn, Ny_ocn, sIceSnowH_ocn, Nx_atm, Ny_atm,

     I           Nx_ocn, Ny_ocn, sIceQ1_ocn, Nx_atm, Ny_atm,

     I     Nx_ocn, Ny_ocn,

     I     Nx_ocn, Ny_ocn,

      CALL COUPSEND_R8TILES( ocnCompName, atmLandName, 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, sIceMass_ocn )

     I           Nx_atm, Ny_atm, saltPlmFlx_atm, Nx_ocn, Ny_ocn,

     I                         Nx_ocn, Ny_ocn, saltPlmFlx_ocn  )

     I                         Nx_ocn, Ny_ocn, RunOff_ocn  )

     I           Nx_atm, Ny_atm, aCO2_atm, Nx_ocn, Ny_ocn,

     I                         Nx_ocn, Ny_ocn, aCO2_ocn )

     I           Nx_atm, Ny_atm, wSpeed_atm, Nx_ocn, Ny_ocn,

     I                         Nx_ocn, Ny_ocn, wSpeed_ocn )

     I           Nx_atm, Ny_atm, SIceFrac_atm, Nx_ocn, Ny_ocn,

     I                         Nx_ocn, Ny_ocn, SIceFrac_ocn )

     I           Nx_atm, Ny_atm, sIceThick_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, sIceSnowH_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, sIceQ1_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, sIceQ2_atm, Nx_ocn, Ny_ocn,

     I                         Nx_ocn, Ny_ocn, sIceThick_ocn )

     I                         Nx_ocn, Ny_ocn, sIceSnowH_ocn )

     I                         Nx_ocn, Ny_ocn, sIceQ1_ocn )

     I                         Nx_ocn, Ny_ocn, sIceQ2_ocn )

      _RL tmpFld(Nx_ocn,Ny_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,

        CALL MDS_BYTESWAPR8( Nx_ocn*Ny_ocn, rAc )

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

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

        lengthRec=Nx_ocn*Ny_ocn*WORDLENGTH*2