C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/atm_ocn_coupler/cpl_register_atm.F,v 1.3 2006/06/15 23:29:17 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE CPL_REGISTER_ATM
C     /==========================================================\
C     | SUBROUTINE CPL_REGISTER_ATM                              |
C     | o Routine for registration of atmos config. with coupler |
C     |   layer.                                                 |
C     |==========================================================|
C     | This version talks to the MITgcm general circulation     |
C     | model. For now just get the models depth map.            |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ==
#include "ATMSIZE.h"
#include "ATMIDS.h"

C     == Routine arguments ==
CEndOfInterface

C     Call MIT Coupler registration acceptance procedure.  Make sure that nobody
C     who registers for atmCompName has a sub-domain that exceeds the bounds
C     Nx_atm, Ny_atm.
C     The first argument to MITCOUPLER_tile_register gives the name of the
C     component whose attributes will be collected by the particular call
C     to MITCOUPLER_tile_register.
C     The second and third arguments to MITCOUPLER_tile_register are used
C     for an internal error check. This check makes sure that the sub-domain
C     sizes reported by each of the component processes for a given component
C     fall within the global domain size the coupler is expecting.
      CALL MITCOUPLER_TILE_REGISTER( atmCompName, Nx_atm, Ny_atm )

      RETURN
      END