MAPL_ExchangeGridGet Subroutine

public subroutine MAPL_ExchangeGridGet(GC, EXCH, RC)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: GC
type(MAPL_LocStream), intent(inout) :: EXCH
integer, intent(out), optional :: RC

Calls

proc~~mapl_exchangegridget~~CallsGraph proc~mapl_exchangegridget MAPL_ExchangeGridGet ESMF_GridCompGet ESMF_GridCompGet proc~mapl_exchangegridget->ESMF_GridCompGet ESMF_UserCompGetInternalState ESMF_UserCompGetInternalState proc~mapl_exchangegridget->ESMF_UserCompGetInternalState proc~mapl_return MAPL_Return proc~mapl_exchangegridget->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_exchangegridget->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine MAPL_ExchangeGridGet ( GC, EXCH, RC )

      ! !ARGUMENTS:

      type(ESMF_GridComp), intent(INout) :: GC     ! Gridded component
      type(MAPL_LocStream),intent(INOUT) :: EXCH   ! Exchange grid
      integer, optional,   intent(  OUT) :: RC     ! Error code:

      !EOPI

      ! ErrLog Variables

      character(len=ESMF_MAXSTR)    :: IAm
      character(len=ESMF_MAXSTR)    :: comp_name
      integer                       :: status

      ! Local derived type aliases

      type (MAPL_MetaComp),pointer     :: STATE

      Iam = "MAPL_ExchangeGridGet"
      call ESMF_GridCompGet( GC, NAME=comp_name, RC=status )
      _VERIFY(status)
      Iam = trim(comp_name) // trim(Iam)

      ! Retrieve the pointer to the internal state.
      ! -------------------------------------------

      call MAPL_InternalStateGet ( GC, STATE, RC=status)
      _VERIFY(status)

      EXCH = STATE%EXCHANGEGRID

      _RETURN(ESMF_SUCCESS)
   end subroutine MAPL_ExchangeGridGet