test_finalize_children Subroutine

public subroutine test_finalize_children(this)

Arguments

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

Calls

proc~~test_finalize_children~~CallsGraph proc~test_finalize_children test_finalize_children ESMF_ClockCreate ESMF_ClockCreate proc~test_finalize_children->ESMF_ClockCreate ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~test_finalize_children->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~test_finalize_children->ESMF_TimeSet assert_that assert_that proc~test_finalize_children->assert_that assertequal assertequal proc~test_finalize_children->assertequal none~finalize~10 OuterMetaComponent%finalize proc~test_finalize_children->none~finalize~10 proc~setup setup proc~test_finalize_children->proc~setup proc~teardown teardown proc~test_finalize_children->proc~teardown proc~setup->ESMF_ClockCreate proc~setup->ESMF_TimeIntervalSet proc~setup->ESMF_TimeSet proc~setup->assert_that ESMF_HConfigCreate ESMF_HConfigCreate proc~setup->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~setup->ESMF_HConfigDestroy esmf_gridcompsetservices esmf_gridcompsetservices proc~setup->esmf_gridcompsetservices interface~create_grid_comp create_grid_comp proc~setup->interface~create_grid_comp interface~get_outer_meta get_outer_meta proc~setup->interface~get_outer_meta interface~user_setservices user_setservices proc~setup->interface~user_setservices none~add_child~4 OuterMetaComponent%add_child proc~setup->none~add_child~4 none~get_gridcomp~3 GriddedComponentDriver%get_gridcomp proc~setup->none~get_gridcomp~3 none~get_user_gc_driver OuterMetaComponent%get_user_gc_driver proc~setup->none~get_user_gc_driver proc~clear_log clear_log proc~setup->proc~clear_log proc~teardown->assert_that ESMF_GridCompDestroy ESMF_GridCompDestroy proc~teardown->ESMF_GridCompDestroy

Source Code

   subroutine test_finalize_children(this)
      class(MpiTestMethod), intent(inout) :: this
      type(ESMF_State) :: importState, exportState

      integer :: status
      type(ESMF_Time) :: t
      type(ESMF_TimeInterval) :: dt
      type(ESMF_Clock) :: clock

      call ESMF_TimeSet(t, h=0)
      call ESMF_TimeIntervalSet(dt, h=1)
      clock = ESMF_ClockCreate(dt, t)

      call setup(this, rc=status)
      @assert_that(status, is(0))

      call parent_meta%finalize(importState, exportState, clock, rc=status)
      @assert_that(status, is(0))
      @assertEqual("wasFinal :: wasFinal_child_1 :: wasFinal_child_2", log)

      call teardown(this)

   end subroutine test_finalize_children