make_geom Function

public function make_geom(rc) result(geom)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: rc

Return Value type(ESMF_Geom)


Calls

proc~~make_geom~~CallsGraph proc~make_geom make_geom ESMF_HConfigCreate ESMF_HConfigCreate proc~make_geom->ESMF_HConfigCreate get_geom get_geom proc~make_geom->get_geom get_geom_manager get_geom_manager proc~make_geom->get_geom_manager get_mapl_geom get_mapl_geom proc~make_geom->get_mapl_geom proc~mapl_verify MAPL_Verify proc~make_geom->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~make_geom~~CalledByGraph proc~make_geom make_geom proc~setup~4 setup proc~setup~4->proc~make_geom proc~test_created_fields_have_num_levels test_created_fields_have_num_levels proc~test_created_fields_have_num_levels->proc~setup~4 proc~test_get_coordinate_field_change_units_center test_get_coordinate_field_change_units_center proc~test_get_coordinate_field_change_units_center->proc~setup~4 proc~test_get_coordinate_field_change_units_edge test_get_coordinate_field_change_units_edge proc~test_get_coordinate_field_change_units_edge->proc~setup~4 proc~test_get_coordinate_field_simple test_get_coordinate_field_simple proc~test_get_coordinate_field_simple->proc~setup~4

Source Code

   function make_geom(rc) result(geom)
      integer, intent(out) :: rc
      type(ESMF_Geom) :: geom
      integer :: status
      type(ESMF_HConfig) :: hconfig
      type(GeomManager), pointer :: geom_mgr
      type(MaplGeom), pointer :: mapl_geom

      rc = 0
      geom_mgr => get_geom_manager()
      hconfig = ESMF_HConfigCreate(content="{class: latlon, im_world: 6, jm_world: 7, pole: PC, dateline: DC}", _RC)
      mapl_geom => geom_mgr%get_mapl_geom(hconfig, _RC)
      geom = mapl_geom%get_geom()
   end function make_geom