teardown Subroutine

public subroutine teardown()

Arguments

None

Calls

proc~~teardown~~CallsGraph proc~teardown teardown ESMF_ConfigDestroy ESMF_ConfigDestroy proc~teardown->ESMF_ConfigDestroy assertequal assertequal proc~teardown->assertequal

Source Code

   subroutine teardown()
      integer :: unit,status
      call ESMF_ConfigDestroy(config, rc=status)
      @assertEqual(0, status)
      open (newunit=unit, file = 'tmp.rc')
      close(unit, status='delete')
     
   end subroutine teardown