INTEGER Ny_atm

     &           Ny_atm  =  32)

      _RL landMask_atm   (Nx_atm,Ny_atm)

      _RL OcMxlD_atm     (Nx_atm,Ny_atm)

      _RL SST_atm        (Nx_atm,Ny_atm)

      _RL SSS_atm        (Nx_atm,Ny_atm)

      _RL vSq_atm        (Nx_atm,Ny_atm)

      _RL fluxCO2_atm    (Nx_atm,Ny_atm)

      _RL atmSLPr_atm    (Nx_atm,Ny_atm)

      _RL HeatFlux_atm   (Nx_atm,Ny_atm)

      _RL qShortWave_atm (Nx_atm,Ny_atm)

      _RL TauX_atm       (Nx_atm,Ny_atm)

      _RL TauY_atm       (Nx_atm,Ny_atm)

      _RL EvMPr_atm      (Nx_atm,Ny_atm)

      _RL RunOff_atm     (Nx_atm,Ny_atm)

      _RL ROEnFx_atm     (Nx_atm,Ny_atm)

      _RL SaltFlx_atm    (Nx_atm,Ny_atm)

      _RL sIceMass_atm   (Nx_atm,Ny_atm)

      _RL saltPlmFlx_atm (Nx_atm,Ny_atm)

      _RL aCO2_atm       (Nx_atm,Ny_atm)

      _RL wSpeed_atm     (Nx_atm,Ny_atm)

      _RL sIceFrac_atm   (Nx_atm,Ny_atm)

      _RL sIceThick_atm  (Nx_atm,Ny_atm)

      _RL sIceSnowH_atm  (Nx_atm,Ny_atm)

      _RL sIceQ1_atm     (Nx_atm,Ny_atm)

      _RL sIceQ2_atm     (Nx_atm,Ny_atm)

      PARAMETER (ROsize=Nx_atm*Ny_atm)

      _RL  fld_atm(Nx_atm*Ny_atm)

       DO j=1,Ny_atm

      LOGICAL tmpVar(Nx_atm,Ny_atm)

      DO j=1,Ny_atm

      DO j=1,Ny_atm

      CALL COUPRECV_R8TILES( atmCompName, atmLandName, Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm,

      CALL MITCOUPLER_TILE_REGISTER( atmCompName, Nx_atm, Ny_atm )

     I           Nx_ocn, Ny_ocn, sIceQ2_ocn, Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm, SIceFrac_atm )

     I                         Nx_atm, Ny_atm, sIceThick_atm )

     I                         Nx_atm, Ny_atm, sIceSnowH_atm )

     I                         Nx_atm, Ny_atm, sIceQ1_atm )

     I                         Nx_atm, Ny_atm, sIceQ2_atm )

     I         Nx_ocn, Ny_ocn, OcMxlD_ocn, Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm, OcMxlD_atm )

     I         Nx_ocn, Ny_ocn, SST_ocn, Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm, SST_atm )

     I         Nx_ocn, Ny_ocn, SSS_ocn, Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm, SSS_atm )

     I         Nx_ocn, Ny_ocn, vSq_ocn, Nx_atm, Ny_atm,

     I                       Nx_atm, Ny_atm, vSq_atm )

     I           Nx_ocn, Ny_ocn, fluxCO2_ocn, Nx_atm, Ny_atm,

     I                         Nx_atm, Ny_atm, fluxCO2_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_atm, Ny_atm,

      CALL COUPSEND_R8TILES( atmCompName, atmMxlDName, Nx_atm, Ny_atm,

     I     Nx_atm, Ny_atm,

     I           Nx_atm, Ny_atm, SaltFlx_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, sIceMass_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, saltPlmFlx_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, aCO2_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, wSpeed_atm, Nx_ocn, Ny_ocn,

     I           Nx_atm, Ny_atm, SIceFrac_atm, Nx_ocn, Ny_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_atm, Ny_atm, atmSLPr_atm, Nx_ocn, Ny_ocn,

     I         Nx_atm, Ny_atm, HeatFlux_atm, Nx_ocn, Ny_ocn,

     I         Nx_atm, Ny_atm, qShortWave_atm, Nx_ocn, Ny_ocn,

     I         Nx_atm, Ny_atm, TauX_atm, Nx_ocn, Ny_ocn,

     I         Nx_atm, Ny_atm, TauY_atm, Nx_ocn, Ny_ocn,

     I         Nx_atm, Ny_atm, EvMPr_atm, Nx_ocn, Ny_ocn,

          IF ( ija.LT.1 .OR. ija.GT.Nx_atm*Ny_atm ) THEN