tearDown Subroutine

public subroutine tearDown()

Arguments

None

Source Code

   subroutine tearDown()
      integer :: unit

      open(newunit=unit, file='test.nc', status='old')
      close(unit, status='delete')
      
   end subroutine tearDown