MAPL_GeomSetId Subroutine

public subroutine MAPL_GeomSetId(geom, id, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Geom), intent(inout) :: geom
integer, intent(in) :: id
integer, intent(out), optional :: rc

Calls

proc~~mapl_geomsetid~~CallsGraph proc~mapl_geomsetid MAPL_GeomSetId ESMF_InfoGetFromHost ESMF_InfoGetFromHost proc~mapl_geomsetid->ESMF_InfoGetFromHost ESMF_InfoSet ESMF_InfoSet proc~mapl_geomsetid->ESMF_InfoSet proc~mapl_return MAPL_Return proc~mapl_geomsetid->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_geomsetid->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_GeomSetId(geom, id, rc)
      type(ESMF_Geom), intent(inout) :: geom
      integer, intent(in) :: id
      integer, optional, intent(out) :: rc

      integer :: status
      type(ESMF_Info) :: info

      call ESMF_InfoGetFromHost(geom, info, _RC)
      call ESMF_InfoSet(info, ID_INFO_KEY, id, _RC)
      
      _RETURN(_SUCCESS)
   end subroutine MAPL_GeomSetId