get_coupler_meta Function

public function get_coupler_meta(gridcomp, rc) result(meta)

Arguments

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

Return Value type(CouplerMetaComponent), pointer


Calls

proc~~get_coupler_meta~~CallsGraph proc~get_coupler_meta get_coupler_meta interface~mapl_assert MAPL_Assert proc~get_coupler_meta->interface~mapl_assert interface~mapl_usercompgetinternalstate MAPL_UserCompGetInternalState proc~get_coupler_meta->interface~mapl_usercompgetinternalstate proc~mapl_return MAPL_Return proc~get_coupler_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

Called by

proc~~get_coupler_meta~~CalledByGraph proc~get_coupler_meta get_coupler_meta proc~make_coupler make_coupler proc~make_coupler->proc~get_coupler_meta none~make_extension StateItemExtension%make_extension none~make_extension->proc~make_coupler none~extend StateRegistry%extend none~extend->none~make_extension none~connect_sibling SimpleConnection%connect_sibling none~connect_sibling->none~extend none~get_coordinate_field~2 ModelVerticalGrid%get_coordinate_field none~get_coordinate_field~2->none~extend

Source Code

   function get_coupler_meta(gridcomp, rc) result(meta)
      type(CouplerMetaComponent), pointer :: meta
      type(ESMF_GridComp), intent(inout) :: gridcomp
      integer, optional, intent(out) :: rc

      integer :: status

      !TODO: This block is a workaround for weird link error with NAG
      !      7.2 Appears to be a collision in numbering of local
      !      scopes.
      block
      end block
      _GET_NAMED_PRIVATE_STATE(gridcomp, CouplerMetaComponent, COUPLER_META_PRIVATE_STATE, meta)

      _RETURN(_SUCCESS)
   end function get_coupler_meta