setup_geom Subroutine

public subroutine setup_geom(geom, im)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Geom), intent(out) :: geom
integer, intent(in) :: im

Calls

proc~~setup_geom~~CallsGraph proc~setup_geom setup_geom ESMF_GeomCreate ESMF_GeomCreate proc~setup_geom->ESMF_GeomCreate ESMF_GridCreateNoPeriDim ESMF_GridCreateNoPeriDim proc~setup_geom->ESMF_GridCreateNoPeriDim

Called by

proc~~setup_geom~~CalledByGraph proc~setup_geom setup_geom proc~test_change_geom~2 test_change_geom proc~test_change_geom~2->proc~setup_geom proc~test_change_typekind~2 test_change_typekind proc~test_change_typekind~2->proc~setup_geom proc~test_change_units test_change_units proc~test_change_units->proc~setup_geom proc~test_change_weights test_change_weights proc~test_change_weights->proc~setup_geom proc~test_change_weights_with_ungridded test_change_weights_with_ungridded proc~test_change_weights_with_ungridded->proc~setup_geom proc~test_create_fields test_create_fields proc~test_create_fields->proc~setup_geom proc~test_create_fields_with_ungridded test_create_fields_with_ungridded proc~test_create_fields_with_ungridded->proc~setup_geom proc~test_same_geom test_same_geom proc~test_same_geom->proc~setup_geom

Source Code

   subroutine setup_geom(geom, im)
      type(ESMF_Geom), intent(out) :: geom
      integer, intent(in) :: im

      type(ESMF_Grid) :: grid

      grid = ESMF_GridCreateNoPeriDim(maxIndex=[IM,IM])
      geom = ESMF_GeomCreate(grid)

   end subroutine setup_geom