SUBROUTINE EEsmfAllocCplC( compListPtr, nComp )
!     Allocate the components
!     Routine arguments
      TYPE( EEsmfCplComp  ), POINTER              :: compListPtr(:)
      INTEGER                                     :: nComp

      ALLOCATE( compListPtr(nComp) )
      IF ( nComp .GT. 1 ) THEN
       PRINT *, ' Allocated ', nComp, ' coupler components.'
      ELSE
       PRINT *, ' Allocated ', nComp, ' coupler component.'
      ENDIF

      END SUBROUTINE EEsmfAllocCplC