setup Subroutine

public subroutine setup()

Arguments

None

Calls

proc~~setup~6~~CallsGraph proc~setup~6 setup ESMF_HConfigCreate ESMF_HConfigCreate proc~setup~6->ESMF_HConfigCreate anyexceptions anyexceptions proc~setup~6->anyexceptions assert_that assert_that proc~setup~6->assert_that get_geom get_geom proc~setup~6->get_geom get_geom_manager get_geom_manager proc~setup~6->get_geom_manager get_mapl_geom get_mapl_geom proc~setup~6->get_mapl_geom sourcelocation sourcelocation proc~setup~6->sourcelocation

Source Code

   subroutine setup()
      type(ESMF_HConfig) :: hconfig
      type(MaplGeom) :: mapl_geom
      type(GeomManager), pointer :: geom_mgr
      integer :: status

      hconfig = ESMF_HConfigCreate(content="{class: latlon, im_world: 12, jm_world: 13, pole: PC, dateline: DC}", _RC)
      geom_mgr => get_geom_manager()
      mapl_geom = geom_mgr%get_mapl_geom(hconfig, _RC)
      geom = mapl_geom%get_geom()
   end subroutine setup