get_factory_id Function

public function get_factory_id(grid, unusable, rc) result(id)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Grid) :: grid
class(KeywordEnforcer), intent(in), optional :: unusable
integer, intent(out), optional :: rc

Return Value integer(kind=ESMF_KIND_I8)


Calls

proc~~get_factory_id~~CallsGraph proc~get_factory_id get_factory_id ESMF_AttributeGet ESMF_AttributeGet proc~get_factory_id->ESMF_AttributeGet proc~mapl_return MAPL_Return proc~get_factory_id->proc~mapl_return proc~mapl_verify MAPL_Verify proc~get_factory_id->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~~get_factory_id~~CalledByGraph proc~get_factory_id get_factory_id none~make_regridder_ NewRegridderManager%make_regridder_ none~make_regridder_->proc~get_factory_id none~make_regridder_from_grids RegridderManager%make_regridder_from_grids none~make_regridder_from_grids->proc~get_factory_id none~make_regridder NewRegridderManager%make_regridder none~make_regridder->none~make_regridder_ none~make_regridder~2 RegridderManager%make_regridder none~make_regridder~2->none~make_regridder_from_grids none~createfilemetadata MAPL_GriddedIO%CreateFileMetaData none~createfilemetadata->none~make_regridder none~request_data_from_file MAPL_GriddedIO%request_data_from_file none~request_data_from_file->none~make_regridder proc~mapl_cfiocreatefromfile MAPL_CFIOCreateFromFile proc~mapl_cfiocreatefromfile->none~make_regridder~2 none~create_from_bundle FieldBundleWriter%create_from_bundle none~create_from_bundle->none~createfilemetadata proc~mapl_read_bundle MAPL_read_bundle proc~mapl_read_bundle->none~request_data_from_file

Source Code

   function get_factory_id(grid, unusable, rc) result(id)
      integer (kind=ESMF_KIND_I8) :: id
      type (ESMF_Grid) :: grid
      class (KeywordEnforcer), optional, intent(in) :: unusable
      integer, optional, intent(out) :: rc

      integer :: status
      character(len=*), parameter :: Iam= MOD_NAME // 'get_factory_id'

      _UNUSED_DUMMY(unusable)

      call ESMF_AttributeGet(grid, factory_id_attribute, id, rc=status)
      _VERIFY(status)

      _RETURN(_SUCCESS)

   end function get_factory_id