Page MenuHomec4science
Files F122578042

mdsfindunit.F
No OneTemporary
Actions

File Metadata

Created
Sun, Jul 20, 16:56

mdsfindunit.F
View Options

C $Header: /u/gcmpack/MITgcm/eesupp/src/mdsfindunit.F,v 1.3 2012/11/26 00:13:05 jmc Exp $
C $Name: $
#include "CPP_EEOPTIONS.h"
SUBROUTINE MDSFINDUNIT( ioUnit, myThid )
C OUT:
C ioUnit (integer) :: unit number
C
C MDSFINDUNIT returns a valid, unused unit number for f77 I/O
C The routine stops the program is an error occurs in the process
C of searching the I/O channels.
C
C Created: 03/20/99 adcroft@mit.edu
IMPLICIT NONE
#include "EEPARAMS.h"
C Arguments
INTEGER ioUnit
INTEGER myThid
C Local
INTEGER ii
LOGICAL op
INTEGER ios
CHARACTER*(MAX_LEN_MBUF) msgBuf
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
C Sweep through a valid range of unit numbers
ioUnit=-1
DO ii=9,999
IF ( ioUnit.EQ.-1 ) THEN
C- skip reserved unit numbers
IF ( ii.NE.errorMessageUnit
& .AND. ii.NE.standardMessageUnit
& .AND. ii.NE.scrUnit1 .AND. ii.NE.scrUnit2
& .AND. ii.NE.eeDataUnit .AND. ii.NE.modelDataUnit
& ) THEN
INQUIRE(unit=ii,iostat=ios,opened=op)
IF ( ios.NE.0 ) THEN
WRITE(msgBuf,'(A,I4)')
& ' MDSFINDUNIT: inquiring unit number =', ii
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
& SQUEEZE_RIGHT, myThid )
WRITE(msgBuf,'(A)')
& ' MDSFINDUNIT: inquire statement failed!'
CALL PRINT_ERROR( msgBuf, myThid )
STOP 'ABNORMAL END: S/R MDSFINDUNIT'
ENDIF
IF ( .NOT.op ) THEN
ioUnit=ii
ENDIF
ENDIF
ENDIF
ENDDO
C Was there an available unit number
IF ( ioUnit.EQ.-1 ) THEN
WRITE(msgBuf,'(A)')
& ' MDSFINDUNIT: could not find an available unit number!'
CALL PRINT_ERROR( msgBuf, myThid )
STOP 'ABNORMAL END: S/R MDSFINDUNIT'
ENDIF
RETURN
END

Event Timeline

c4science · Help