destroy_objects Subroutine

public subroutine destroy_objects(importState, exportState, clock, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_State), intent(inout) :: importState
type(ESMF_State), intent(inout) :: exportState
type(ESMF_Clock), intent(inout) :: clock
integer, intent(out), optional :: rc

Calls

proc~~destroy_objects~~CallsGraph proc~destroy_objects destroy_objects ESMF_ClockDestroy ESMF_ClockDestroy proc~destroy_objects->ESMF_ClockDestroy ESMF_GridDestroy ESMF_GridDestroy proc~destroy_objects->ESMF_GridDestroy anyexceptions anyexceptions proc~destroy_objects->anyexceptions assert_that assert_that proc~destroy_objects->assert_that esmf_fielddestroy esmf_fielddestroy proc~destroy_objects->esmf_fielddestroy esmf_fieldget esmf_fieldget proc~destroy_objects->esmf_fieldget esmf_statedestroy esmf_statedestroy proc~destroy_objects->esmf_statedestroy proc~get_field get_field proc~destroy_objects->proc~get_field sourcelocation sourcelocation proc~destroy_objects->sourcelocation proc~get_field->anyexceptions proc~get_field->assert_that proc~get_field->sourcelocation esmf_stateget esmf_stateget proc~get_field->esmf_stateget

Called by

proc~~destroy_objects~~CalledByGraph proc~destroy_objects destroy_objects proc~test_accumulate test_accumulate proc~test_accumulate->proc~destroy_objects proc~test_accumulate_mean_r4 test_accumulate_mean_R4 proc~test_accumulate_mean_r4->proc~destroy_objects proc~test_accumulate_r4 test_accumulate_R4 proc~test_accumulate_r4->proc~destroy_objects proc~test_accumulate_with_undef_some_steps test_accumulate_with_undef_some_steps proc~test_accumulate_with_undef_some_steps->proc~destroy_objects proc~test_calculate_mean_r4 test_calculate_mean_R4 proc~test_calculate_mean_r4->proc~destroy_objects proc~test_clear test_clear proc~test_clear->proc~destroy_objects proc~test_clear~2 test_clear proc~test_clear~2->proc~destroy_objects proc~test_initialize test_initialize proc~test_initialize->proc~destroy_objects proc~test_initialize~2 test_initialize proc~test_initialize~2->proc~destroy_objects proc~test_invalidate test_invalidate proc~test_invalidate->proc~destroy_objects proc~test_invalidate~2 test_invalidate proc~test_invalidate~2->proc~destroy_objects proc~test_max_accumulate_r4 test_max_accumulate_R4 proc~test_max_accumulate_r4->proc~destroy_objects proc~test_min_accumulate_r4 test_min_accumulate_R4 proc~test_min_accumulate_r4->proc~destroy_objects proc~test_update test_update proc~test_update->proc~destroy_objects

Source Code

   subroutine destroy_objects(importState, exportState, clock, rc)
      type(ESMF_State), intent(inout) :: importState, exportState
      type(ESMF_Clock), intent(inout) :: clock
      integer, optional, intent(out) :: rc

      integer :: status
      type(ESMF_Field) :: importField, exportField
      type(ESMF_Grid) :: grid

      call get_field(importState, importField, _RC)
      call get_field(exportState, exportField, _RC)
      call ESMF_StateDestroy(importState, _RC)
      call ESMF_StateDestroy(exportState, _RC)
      call ESMF_FieldGet(importField, grid=grid, _RC)
      call ESMF_FieldDestroy(importField, _RC)
      call ESMF_FieldDestroy(exportField, _RC)
      call ESMF_GridDestroy(grid, _RC)
      call ESMF_ClockDestroy(clock, _RC)
      _RETURN(_SUCCESS)

   end subroutine destroy_objects