attach_coupler_meta Subroutine

public subroutine attach_coupler_meta(gridcomp, rc)

Arguments

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

Calls

proc~~attach_coupler_meta~~CallsGraph proc~attach_coupler_meta attach_coupler_meta interface~mapl_assert MAPL_Assert proc~attach_coupler_meta->interface~mapl_assert interface~mapl_usercompsetinternalstate MAPL_UserCompSetInternalState proc~attach_coupler_meta->interface~mapl_usercompsetinternalstate proc~mapl_return MAPL_Return proc~attach_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~~attach_coupler_meta~~CalledByGraph proc~attach_coupler_meta attach_coupler_meta proc~make_coupler make_coupler proc~make_coupler->proc~attach_coupler_meta none~make_extension~3 StateItemExtension%make_extension none~make_extension~3->proc~make_coupler none~extend~2 StateRegistry%extend none~extend~2->none~make_extension~3 none~get_coordinate_field~3 ModelVerticalGrid%get_coordinate_field none~get_coordinate_field~3->none~make_extension~3 none~connect_sibling SimpleConnection%connect_sibling none~connect_sibling->none~extend~2 proc~test_get_coordinate_field_change_units test_get_coordinate_field_change_units proc~test_get_coordinate_field_change_units->none~get_coordinate_field~3 proc~test_get_coordinate_field_simple test_get_coordinate_field_simple proc~test_get_coordinate_field_simple->none~get_coordinate_field~3

Source Code

   subroutine attach_coupler_meta(gridcomp, rc)
      type(ESMF_GridComp), intent(inout) :: gridcomp
      integer, optional, intent(out) :: rc

      integer :: status

      _SET_NAMED_PRIVATE_STATE(gridcomp, CouplerMetaComponent, COUPLER_META_PRIVATE_STATE)

      _RETURN(_SUCCESS)
   end subroutine attach_coupler_meta