test_wasinit Subroutine

public subroutine test_wasinit(this)

Uses

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

Arguments

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

Calls

proc~~test_wasinit~~CallsGraph proc~test_wasinit test_wasinit ESMF_GridCompInitialize ESMF_GridCompInitialize proc~test_wasinit->ESMF_GridCompInitialize ESMF_HConfigCreate ESMF_HConfigCreate proc~test_wasinit->ESMF_HConfigCreate assert_that assert_that proc~test_wasinit->assert_that assertequal assertequal proc~test_wasinit->assertequal proc~setup~7 setup proc~test_wasinit->proc~setup~7 proc~teardown~4 tearDown proc~test_wasinit->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_wasinit(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_GridCompInitialize(outer_gc, phase=GENERIC_INIT_USER, rc=status)
      @assert_that(status, is(0))
      @assertEqual("wasInit_A", log)

      call teardown(outer_gc, config)

      if(.false.) print*,shape(this)
   end subroutine test_wasinit