teardown_geom Subroutine

public subroutine teardown_geom(geom)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Geom), intent(inout) :: geom

Calls

proc~~teardown_geom~~CallsGraph proc~teardown_geom teardown_geom ESMF_GeomDestroy ESMF_GeomDestroy proc~teardown_geom->ESMF_GeomDestroy ESMF_GeomGet ESMF_GeomGet proc~teardown_geom->ESMF_GeomGet ESMF_GridDestroy ESMF_GridDestroy proc~teardown_geom->ESMF_GridDestroy

Called by

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

Source Code

   subroutine teardown_geom(geom)
      type(ESMF_Geom), intent(inout) :: geom

      type(ESMF_Grid) :: grid

      call ESMF_GeomGet(geom, grid=grid)
      call ESMF_GridDestroy(grid)
      call ESMF_GeomDestroy(geom)

   end subroutine teardown_geom