get_geom_from_id.F90 Source File

#include "MAPL_Generic.h"

submodule (mapl3g_GeomManager) get_geom_from_id_smod

   implicit none

contains
   
   module function get_geom_from_id(this, id, rc) result(geom)
      type(ESMF_Geom) :: geom
      class(GeomManager), target, intent(inout) :: this
      integer, intent(in) :: id
      integer, optional, intent(out) :: rc

      integer :: status
      type(MaplGeom), pointer :: mapl_geom

      mapl_geom => this%mapl_geoms%at(id, _RC)
      geom = mapl_geom%get_geom()

      _RETURN(_SUCCESS)
   end function get_geom_from_id

end submodule get_geom_from_id_smod