SUBROUTINE EesmfAllocChildren( cTab )

!     Allocates the components
!     Routine arguments
!     cTab :: Component attributes table
      TYPE( EEsmfCattr ) :: cTab

!     Local variables
      INTEGER I
      TYPE( EEsmfGridComp ), POINTER  :: gcArr(:)
      TYPE( EEsmfCplComp  ),  POINTER :: ccArr(:)

!     Here we need to do a component allocate and assign components to
!     PET's within VM of the parent component.
      DO I=1,cTab%nSets
       IF ( TRIM(cTab%cTypeArr(I)) .EQ. 'gridded' ) THEN
        CALL EEsmfAllocGridC( gcArr, cTab%nComps(I) )
       ELSE IF ( TRIM(cTab%cTypeArr(I)) .EQ. 'coupler' ) THEN
        CALL EEsmfAllocCplC(  ccArr, cTab%nComps(I) )
       ELSE
        STOP 'ABNORMAL END: PRMTop found unrecognised component type.'
       ENDIF
      ENDDO

      END SUBROUTINE EEsmfAllocChildren