C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/receive_component_configs.F,v 1.4 2007/10/08 23:49:46 jmc Exp $
C $Name:  $

C $ Header: $
C $ Name:   $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE RECEIVE_COMPONENT_CONFIGS
C     /==========================================================\
C     | SUBROUTINE RECEIVE_COMPONENT_CONFIGS                     |
C     | o Rotuine which controls receiving the configurations    |
C     |   of each of the component models.                       |
C     \==========================================================/
      IMPLICIT NONE

C     Data on ocean grid
#include "OCNSIZE.h"
#include "OCNVARS.h"
C     Data on atmos grid
#include "ATMSIZE.h"
#include "ATMVARS.h"

C     Receive ocean config (OCNCONFIG) from ocean
C     component (OCN).
      CALL CPL_RECV_OCN_OCNCONFIG

C     Receive atmos config (ATCONFIG) from atmos.
C     component (ATM).
      CALL CPL_RECV_ATM_ATMCONFIG

      RETURN
      END