make_geom Function

public function make_geom(geom_mgr, hconfig, rc) result(geom)

Arguments

Type IntentOptional Attributes Name
type(GeomManager), intent(inout) :: geom_mgr
type(ESMF_HConfig), intent(in), optional :: hconfig
integer, intent(out), optional :: rc

Return Value type(ESMF_Geom)


Calls

proc~~make_geom~2~~CallsGraph proc~make_geom~2 make_geom ESMF_HConfigCreate ESMF_HConfigCreate proc~make_geom~2->ESMF_HConfigCreate get_geom get_geom proc~make_geom~2->get_geom get_mapl_geom get_mapl_geom proc~make_geom~2->get_mapl_geom

Called by

proc~~make_geom~2~~CalledByGraph proc~make_geom~2 make_geom proc~test_basic~2 test_basic proc~test_basic~2->proc~make_geom~2 proc~test_do_not_reuse_regridder test_do_not_reuse_regridder proc~test_do_not_reuse_regridder->proc~make_geom~2 proc~test_regrid_3d test_regrid_3d proc~test_regrid_3d->proc~make_geom~2 proc~test_regrid_values test_regrid_values proc~test_regrid_values->proc~make_geom~2 proc~test_reuse_regridder test_reuse_regridder proc~test_reuse_regridder->proc~make_geom~2

Source Code

   function make_geom(geom_mgr, hconfig, rc) result(geom)
      type(ESMF_Geom) :: geom
      type(GeomManager), intent(inout) :: geom_mgr
      type(ESMF_HConfig), optional, intent(in) :: hconfig
      integer, optional, intent(out) :: rc

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

      hconfig_ = ESMF_HConfigCreate(content="{class: latlon, im_world: 12, jm_world: 13, pole: PC, dateline: DC, nx: 1, ny: 1}", &
           _RC2)
      if (present(hconfig)) hconfig_ = hconfig

      mapl_geom => geom_mgr%get_mapl_geom(hconfig_, _RC2)
      geom = mapl_geom%get_geom()

      _RETURN(_SUCCESS)
   end function make_geom