teardown Subroutine

public subroutine teardown()

Arguments

None

Calls

proc~~teardown~3~~CallsGraph proc~teardown~3 teardown ESMF_ConfigDestroy ESMF_ConfigDestroy proc~teardown~3->ESMF_ConfigDestroy assertequal assertequal proc~teardown~3->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