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