test_clear Subroutine

public subroutine test_clear(this)

Arguments

Type IntentOptional Attributes Name
class(ESMF_TestMethod), intent(inout) :: this

Calls

proc~~test_clear~~CallsGraph proc~test_clear test_clear anyexceptions anyexceptions proc~test_clear->anyexceptions assert_that assert_that proc~test_clear->assert_that asserttrue asserttrue proc~test_clear->asserttrue interface~fieldisconstant FieldIsConstant proc~test_clear->interface~fieldisconstant interface~fieldset FieldSet proc~test_clear->interface~fieldset none~clear~130 AccumulatorAction%clear proc~test_clear->none~clear~130 none~initialize~30 AccumulatorAction%initialize proc~test_clear->none~initialize~30 proc~destroy_objects destroy_objects proc~test_clear->proc~destroy_objects proc~initialize_objects initialize_objects proc~test_clear->proc~initialize_objects sourcelocation sourcelocation proc~test_clear->sourcelocation none~clear~130->interface~fieldset interface~mapl_assert MAPL_Assert none~clear~130->interface~mapl_assert proc~mapl_return MAPL_Return none~clear~130->proc~mapl_return proc~mapl_verify MAPL_Verify none~clear~130->proc~mapl_verify none~initialize~30->none~clear~130 esmf_fieldget esmf_fieldget none~initialize~30->esmf_fieldget esmf_stateget esmf_stateget none~initialize~30->esmf_stateget interface~fieldsareconformable FieldsAreConformable none~initialize~30->interface~fieldsareconformable interface~fieldsaresametypekind FieldsAreSameTypeKind none~initialize~30->interface~fieldsaresametypekind none~initialize~30->interface~mapl_assert none~create_fields AccumulatorAction%create_fields none~initialize~30->none~create_fields none~initialize~30->proc~mapl_return none~initialize~30->proc~mapl_verify proc~destroy_objects->anyexceptions proc~destroy_objects->assert_that proc~destroy_objects->sourcelocation ESMF_ClockDestroy ESMF_ClockDestroy proc~destroy_objects->ESMF_ClockDestroy ESMF_GridDestroy ESMF_GridDestroy proc~destroy_objects->ESMF_GridDestroy esmf_fielddestroy esmf_fielddestroy proc~destroy_objects->esmf_fielddestroy 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 proc~initialize_objects->anyexceptions proc~initialize_objects->assert_that proc~initialize_objects->sourcelocation ESMF_ClockCreate ESMF_ClockCreate proc~initialize_objects->ESMF_ClockCreate ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~initialize_objects->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~initialize_objects->ESMF_TimeSet esmf_fieldcreate esmf_fieldcreate proc~initialize_objects->esmf_fieldcreate esmf_statecreate esmf_statecreate proc~initialize_objects->esmf_statecreate proc~create_grid create_grid proc~initialize_objects->proc~create_grid

Source Code

   subroutine test_clear(this)
      class(ESMF_TestMethod), intent(inout) :: this
      type(AccumulatorAction) :: acc
      type(ESMF_State) :: importState, exportState
      type(ESMF_Clock) :: clock
      integer :: status
      logical :: is_expected_value
      real(kind=ESMF_KIND_R4), parameter :: TEST_VALUE = 2.0_ESMF_KIND_R4

      call initialize_objects(importState, exportState, clock, ESMF_TYPEKIND_R4, _RC)
      call acc%initialize(importState, exportState, clock, _RC)
      call FieldSet(acc%accumulation_field, TEST_VALUE, _RC)
      call acc%clear(_RC)
      is_expected_value = FieldIsConstant(acc%accumulation_field, acc%CLEAR_VALUE_R4, _RC)
      @assertTrue(is_expected_value, 'accumulation_field was not cleared.')
      call destroy_objects(importState, exportState, clock, _RC)

   end subroutine test_clear