source: LMDZ5/branches/LMDZ5-DOFOCO/libf/bibio/new_unit_m.F90 @ 3575

Last change on this file since 3575 was 1687, checked in by Laurent Fairhead, 12 years ago

Nettoyage général pour la bonne marche de makegcm
FH


General housekeeping for makegcm to work as expected
FH

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.