tear_down Subroutine

public subroutine tear_down()

Arguments

None

Calls

proc~~tear_down~~CallsGraph proc~tear_down tear_down ESMF_HConfigDestroy ESMF_HConfigDestroy proc~tear_down->ESMF_HConfigDestroy assertfalse assertfalse proc~tear_down->assertfalse

Source Code

   subroutine tear_down()

      integer :: status

      if(hconfig_is_created) call ESMF_HConfigDestroy(hconfig, rc=status)
      hconfig_is_created = .FALSE.
      @assertFalse(hconfig_is_created, 'HConfig was not destroyed.')

   end subroutine tear_down