/[MITgcm]/MITgcm/eesupp/src/mdsfindunit.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/mdsfindunit.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Tue Aug 23 13:21:08 2005 UTC revision 1.2 by ce107, Tue Aug 22 18:57:53 2006 UTC
# Line 29  C     ---------------------------------- Line 29  C     ----------------------------------
29    
30  C Sweep through a valid range of unit numbers  C Sweep through a valid range of unit numbers
31        iounit=-1        iounit=-1
32        do ii=9,99        do ii=9,999
33          if (iounit.eq.-1) then          if (iounit.eq.-1) then
34            inquire(unit=ii,iostat=ios,opened=op)            inquire(unit=ii,iostat=ios,opened=op)
35            if (ios.ne.0) then            if (ios.ne.0) then
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22