source: codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/free_unit_mod.f90 @ 314

Last change on this file since 314 was 221, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
File size: 390 bytes
Line 
1MODULE free_unit_mod
2
3  PRIVATE
4
5  INTEGER, PARAMETER :: start_unit=1000
6
7  PUBLIC :: free_unit
8
9CONTAINS
10
11  FUNCTION free_unit
12    INTEGER :: free_unit
13    LOGICAL :: out
14   
15    out=.FALSE.
16    free_unit=start_unit
17   
18    DO WHILE (.NOT. out)
19      free_unit=free_unit+1
20      INQUIRE(unit=free_unit, exist=out)
21    END DO
22   
23  END FUNCTION free_unit
24 
25END MODULE free_unit_mod
26 
Note: See TracBrowser for help on using the repository browser.