set_up Subroutine

public subroutine set_up()

Arguments

None

Calls

proc~~set_up~2~~CallsGraph proc~set_up~2 set_up ESMF_HConfigAdd ESMF_HConfigAdd proc~set_up~2->ESMF_HConfigAdd ESMF_HConfigCreate ESMF_HConfigCreate proc~set_up~2->ESMF_HConfigCreate assertequal assertequal proc~set_up~2->assertequal asserttrue asserttrue proc~set_up~2->asserttrue

Source Code

   subroutine set_up()
      
      integer :: status

      if(.not. hconfig_is_created) then
         hconfig = ESMF_HConfigCreate(rc=status)
         hconfig_is_created = (status == 0)
         call ESMF_HConfigAdd(hconfig, 0, addKeyString='null', rc=status)
         @assertEqual(0, status, 'Failed to add null vallue')
      end if
      @assertTrue(hconfig_is_created, 'HConfig was not created.')

   end subroutine set_up