test_MAPL_RunChild_other_phase Subroutine

public subroutine test_MAPL_RunChild_other_phase(this)

Arguments

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

Calls

proc~~test_mapl_runchild_other_phase~~CallsGraph proc~test_mapl_runchild_other_phase test_MAPL_RunChild_other_phase assert_that assert_that proc~test_mapl_runchild_other_phase->assert_that assertequal assertequal proc~test_mapl_runchild_other_phase->assertequal interface~mapl_runchild MAPL_RunChild proc~test_mapl_runchild_other_phase->interface~mapl_runchild proc~setup setup proc~test_mapl_runchild_other_phase->proc~setup proc~teardown teardown proc~test_mapl_runchild_other_phase->proc~teardown proc~setup->assert_that ESMF_ClockCreate ESMF_ClockCreate proc~setup->ESMF_ClockCreate ESMF_HConfigCreate ESMF_HConfigCreate proc~setup->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~setup->ESMF_HConfigDestroy ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~setup->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~setup->ESMF_TimeSet 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_MAPL_RunChild_other_phase(this)
      class(MpiTestMethod), intent(inout) :: this
      integer :: status

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

      call MAPL_RunChild(user_gc, child_name='child_1', phase_name='extra', rc=status)
      @assert_that(status, is(0))
      @assertEqual("wasRun_extra_child_1", log)

      call teardown(this)
      
   end subroutine test_MAPL_RunChild_other_phase