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 anyexceptions anyexceptions proc~make_geom->anyexceptions assert_that assert_that proc~make_geom->assert_that 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 sourcelocation sourcelocation proc~make_geom->sourcelocation

Called by

proc~~make_geom~~CalledByGraph proc~make_geom make_geom proc~setup setup proc~setup->proc~make_geom proc~test_get_coordinate_field_change_units test_get_coordinate_field_change_units proc~test_get_coordinate_field_change_units->proc~make_geom proc~test_get_coordinate_field_change_units->proc~setup proc~test_get_coordinate_field_simple test_get_coordinate_field_simple proc~test_get_coordinate_field_simple->proc~make_geom proc~test_get_coordinate_field_simple->proc~setup proc~test_created_fields_have_num_levels test_created_fields_have_num_levels proc~test_created_fields_have_num_levels->proc~setup

Source Code

   function make_geom(rc) result(geom)
      integer, intent(out) :: rc
      type(ESMF_Geom) :: geom
      type(ESMF_Grid) :: grid
      integer :: status
      type(ESMF_HConfig) :: hconfig
      type(GeomManager), pointer :: geom_mgr
      class(GeomSpec), allocatable :: geom_spec
      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