master/Alloc/AllocChildren.F90

      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
1	cnh	1.1	SUBROUTINE EesmfAllocChildren( cTab )
2
3			! Allocates the components
4			! Routine arguments
5			! cTab :: Component attributes table
6			TYPE( EEsmfCattr ) :: cTab
7
8			! Local variables
9			INTEGER I
10			TYPE( EEsmfGridComp ), POINTER :: gcArr(:)
11			TYPE( EEsmfCplComp ), POINTER :: ccArr(:)
12
13			! Here we need to do a component allocate and assign components to
14			! PET's within VM of the parent component.
15			DO I=1,cTab%nSets
16			IF ( TRIM(cTab%cTypeArr(I)) .EQ. 'gridded' ) THEN
17			CALL EEsmfAllocGridC( gcArr, cTab%nComps(I) )
18			ELSE IF ( TRIM(cTab%cTypeArr(I)) .EQ. 'coupler' ) THEN
19			CALL EEsmfAllocCplC( ccArr, cTab%nComps(I) )
20			ELSE
21			STOP 'ABNORMAL END: PRMTop found unrecognised component type.'
22			ENDIF
23			ENDDO
24
25			END SUBROUTINE EEsmfAllocChildren