test_wasrun_extra Subroutine

public subroutine test_wasrun_extra(this)

Uses

  • proc~~test_wasrun_extra~~UsesGraph proc~test_wasrun_extra test_wasrun_extra module~scratchpad scratchpad proc~test_wasrun_extra->module~scratchpad

Arguments

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

Calls

proc~~test_wasrun_extra~~CallsGraph proc~test_wasrun_extra test_wasrun_extra ESMF_GridCompRun ESMF_GridCompRun proc~test_wasrun_extra->ESMF_GridCompRun ESMF_HConfigCreate ESMF_HConfigCreate proc~test_wasrun_extra->ESMF_HConfigCreate assert_that assert_that proc~test_wasrun_extra->assert_that assertequal assertequal proc~test_wasrun_extra->assertequal proc~setup~7 setup proc~test_wasrun_extra->proc~setup~7 proc~teardown~4 tearDown proc~test_wasrun_extra->proc~teardown~4 proc~setup~7->assert_that ESMF_ClockCreate ESMF_ClockCreate proc~setup~7->ESMF_ClockCreate ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~setup~7->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~setup~7->ESMF_TimeSet esmf_gridcompsetservices esmf_gridcompsetservices proc~setup~7->esmf_gridcompsetservices interface~create_grid_comp create_grid_comp proc~setup~7->interface~create_grid_comp interface~user_setservices user_setservices proc~setup~7->interface~user_setservices proc~clear_log clear_log proc~setup~7->proc~clear_log ESMF_HConfigDestroy ESMF_HConfigDestroy proc~teardown~4->ESMF_HConfigDestroy proc~teardown~4->proc~clear_log

Source Code

   subroutine test_wasrun_extra(this)
      use scratchpad
      class(MpiTestMethod), intent(inout) :: this

      integer :: status
      type(ESMF_GridComp) :: outer_gc
      type(ESMF_HConfig) :: config

      config = ESMF_HConfigCreate(content='{}', rc=status)
      call setup(outer_gc, config, status)
      @assert_that(status, is(0))

      call ESMF_GridCompRun(outer_gc, phase=2, rc=status)
      @assert_that(status, is(0))
      @assertEqual("wasRun_extra_A", log)

      call teardown(outer_gc, config)
      if(.false.) print*,shape(this)
   end subroutine test_wasrun_extra