source: LMDZ5/branches/LMDZ6_rc0/libf/bibio/new_unit_m.F90 @ 2275

Last change on this file since 2275 was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 436 bytes
Line 
1module new_unit_m
2
3  implicit none
4
5contains
6
7  subroutine new_unit(unit)
8
9    integer, intent(out):: unit
10
11    ! Variables local to the procedure:
12    logical opened, exist
13
14    !------------------------------------------------------
15
16    unit = 0
17    do
18       inquire(unit=unit, opened=opened, exist=exist)
19       if (exist .and. .not. opened) exit
20       unit = unit + 1
21    end do
22
23  end subroutine new_unit
24
25end module new_unit_m
Note: See TracBrowser for help on using the repository browser.