attach_inner_meta Subroutine

public subroutine attach_inner_meta(self_gc, outer_gc, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(inout) :: self_gc
type(ESMF_GridComp), intent(in) :: outer_gc
integer, intent(out), optional :: rc

Calls

proc~~attach_inner_meta~~CallsGraph proc~attach_inner_meta attach_inner_meta interface~mapl_assert MAPL_Assert proc~attach_inner_meta->interface~mapl_assert interface~mapl_usercompgetinternalstate MAPL_UserCompGetInternalState proc~attach_inner_meta->interface~mapl_usercompgetinternalstate interface~mapl_usercompsetinternalstate MAPL_UserCompSetInternalState proc~attach_inner_meta->interface~mapl_usercompsetinternalstate proc~mapl_return MAPL_Return proc~attach_inner_meta->proc~mapl_return 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

Source Code

   subroutine attach_inner_meta(self_gc, outer_gc, rc)
      type(ESMF_GridComp), intent(inout) :: self_gc
      type(ESMF_GridComp), intent(in) :: outer_gc
      integer, optional, intent(out) :: rc

      type(InnerMetaComponent), pointer :: inner_meta
      integer :: status

      _SET_NAMED_PRIVATE_STATE(self_gc, InnerMetaComponent, INNER_META_PRIVATE_STATE)
      _GET_NAMED_PRIVATE_STATE(self_gc, InnerMetaComponent, INNER_META_PRIVATE_STATE, inner_meta)
      inner_meta = InnerMetaComponent(self_gc, outer_gc)
      
      _RETURN(_SUCCESS)
   end subroutine attach_inner_meta