free_inner_meta Subroutine

public subroutine free_inner_meta(gridcomp, rc)

Arguments

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

Calls

proc~~free_inner_meta~~CallsGraph proc~free_inner_meta free_inner_meta interface~mapl_assert MAPL_Assert proc~free_inner_meta->interface~mapl_assert interface~mapl_usercompgetinternalstate MAPL_UserCompGetInternalState proc~free_inner_meta->interface~mapl_usercompgetinternalstate proc~mapl_return MAPL_Return proc~free_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 free_inner_meta(gridcomp, rc)
      type(ESMF_GridComp), intent(inout) :: gridcomp
      integer, optional, intent(out) :: rc

      integer :: status
      type(InnerMetaWrapper) :: wrapper

      call MAPL_UserCompGetInternalState(gridcomp, INNER_META_PRIVATE_STATE, wrapper, status)
      _ASSERT(status==ESMF_SUCCESS, "OuterMetaComponent not created for this gridcomp")
      deallocate(wrapper%inner_meta)

      _RETURN(_SUCCESS)
   end subroutine free_inner_meta