Symbol Description Uses
diagLoc_ioUnit internal parameter: I/O unit for local diagnostics output 11


File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS.h 147 NO PROCEDURE 
      INTEGER diagLoc_ioUnit
./pkg/diagnostics/DIAGNOSTICS.h 155 NO PROCEDURE 
     &     diagLoc_ioUnit
./pkg/diagnostics/diagnostics_calc_phivel.F 292 DIAGNOSTICS_CALC_PHIVEL 
         IF ( diagLoc_ioUnit.EQ.0 ) THEN
./pkg/diagnostics/diagnostics_calc_phivel.F 293 DIAGNOSTICS_CALC_PHIVEL 
          CALL MDSFINDUNIT( diagLoc_ioUnit, myThid )
./pkg/diagnostics/diagnostics_calc_phivel.F 296 DIAGNOSTICS_CALC_PHIVEL 
          OPEN( diagLoc_ioUnit, FILE=dataFName, STATUS='unknown' )
./pkg/diagnostics/diagnostics_calc_phivel.F 299 DIAGNOSTICS_CALC_PHIVEL 
     &         'open unit=',diagLoc_ioUnit, ', file: ',dataFName(1:iL)
./pkg/diagnostics/diagnostics_calc_phivel.F 303 DIAGNOSTICS_CALC_PHIVEL 
         IF ( diagLoc_ioUnit.GT.0 ) THEN
./pkg/diagnostics/diagnostics_calc_phivel.F 304 DIAGNOSTICS_CALC_PHIVEL 
          WRITE(diagLoc_ioUnit,'(1P2E18.10,A,2I4,I8,A,2I4,I6,2A)')
./pkg/diagnostics/diagnostics_readparms.F 152 DIAGNOSTICS_READPARMS 
      diagLoc_ioUnit = 0
./pkg/diagnostics/diagstats_close_io.F 73 DIAGSTATS_CLOSE_IO 
      IF ( diagLoc_ioUnit.GT.0 ) THEN
./pkg/diagnostics/diagstats_close_io.F 74 DIAGSTATS_CLOSE_IO 
        CLOSE(diagLoc_ioUnit)