MAPL_GeomGetId Function

public function MAPL_GeomGetId(geom, isPresent, rc) result(id)

Arguments

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

Return Value integer


Calls

proc~~mapl_geomgetid~~CallsGraph proc~mapl_geomgetid MAPL_GeomGetId ESMF_InfoGet ESMF_InfoGet proc~mapl_geomgetid->ESMF_InfoGet ESMF_InfoGetFromHost ESMF_InfoGetFromHost proc~mapl_geomgetid->ESMF_InfoGetFromHost proc~mapl_return MAPL_Return proc~mapl_geomgetid->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_geomgetid->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

Called by

proc~~mapl_geomgetid~~CalledByGraph proc~mapl_geomgetid MAPL_GeomGetId proc~get_mapl_geom get_mapl_geom proc~get_mapl_geom->proc~mapl_geomgetid proc~add_variable~2 add_variable proc~add_variable~2->proc~get_mapl_geom proc~bundle_to_metadata bundle_to_metadata proc~bundle_to_metadata->proc~get_mapl_geom proc~add_variables add_variables proc~bundle_to_metadata->proc~add_variables proc~add_variables->proc~add_variable~2

Source Code

   integer function MAPL_GeomGetId(geom, isPresent, rc) result(id)
      type(ESMF_Geom), intent(in) :: geom
      logical, optional, intent(out) :: isPresent
      integer, optional, intent(out) :: rc

      integer :: status
      type(ESMF_Info) :: info
      integer, parameter :: NOT_FOUND = -1

      call ESMF_InfoGetFromHost(geom, info, _RC)
      call ESMF_InfoGet(info, ID_INFO_KEY, id, default=NOT_FOUND, _RC)
      if (present(isPresent)) isPresent = (id /= NOT_FOUND)

      
      _RETURN(_SUCCESS)
   end function MAPL_GeomGetId