test_is_generic Subroutine

public subroutine test_is_generic(this)

Arguments

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

Calls

proc~~test_is_generic~~CallsGraph proc~test_is_generic test_is_generic ESMF_ClockCreate ESMF_ClockCreate proc~test_is_generic->ESMF_ClockCreate ESMF_ClockDestroy ESMF_ClockDestroy proc~test_is_generic->ESMF_ClockDestroy ESMF_HConfigCreate ESMF_HConfigCreate proc~test_is_generic->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_is_generic->ESMF_HConfigDestroy ESMF_InfoGet ESMF_InfoGet proc~test_is_generic->ESMF_InfoGet ESMF_InfoGetFromHost ESMF_InfoGetFromHost proc~test_is_generic->ESMF_InfoGetFromHost ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~test_is_generic->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~test_is_generic->ESMF_TimeSet anyexceptions anyexceptions proc~test_is_generic->anyexceptions assert_that assert_that proc~test_is_generic->assert_that interface~create_grid_comp create_grid_comp proc~test_is_generic->interface~create_grid_comp interface~user_setservices user_setservices proc~test_is_generic->interface~user_setservices sourcelocation sourcelocation proc~test_is_generic->sourcelocation true true proc~test_is_generic->true

Source Code

   subroutine test_is_generic(this)
      class(MpiTestMethod), intent(inout) :: this

      type(ESMF_GridComp) :: outer_gc
      type(ESMF_Clock) :: clock
      integer :: status
      type(ESMF_Info) :: info
      type(ESMF_HConfig) :: hconfig
      logical :: is_generic
      type(ESMF_Time) :: t
      type(ESMF_TimeInterval) :: dt

      call ESMF_TimeSet(t, h=0)
      call ESMF_TimeIntervalSet(dt, h=1)
      clock = ESMF_ClockCreate(dt, t)
      hconfig = ESMF_HConfigCreate(content='{}')

      outer_gc = create_grid_comp('ROOT', user_setservices('libsimple_parent_gridcomp'), hconfig, clock, _RC)

      call ESMF_InfoGetFromHost(outer_gc, info, _RC)
      call ESMF_InfoGet(info, key='MAPL/GRIDCOMP_IS_GENERIC', value=is_generic, _RC)
      @assert_that(is_generic,is(true()))

      call ESMF_HConfigDestroy(hconfig, _RC)
      call ESMF_ClockDestroy(clock, _RC)

      _UNUSED_DUMMY(this)
   end subroutine test_is_generic