source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/config/ppsrc/bibio/new_unit_m.f90 @ 224

Last change on this file since 224 was 224, checked in by ymipsl, 10 years ago
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.