var/da/da_tools/da_free_unit.inc

   1 subroutine da_free_unit(unit)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    integer, intent(in) :: unit
  10
  11    ! Do not use as called in trace
  12    ! if (trace_use) call da_trace_entry("da_free_unit")
  13
  14    unit_used(unit) = .false.
  15
  16    ! if (trace_use) call da_trace_exit("da_free_unit")
  17
  18 end subroutine da_free_unit
  19
  20