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


File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS.h 142 NO PROCEDURE 
      INTEGER diagLoc_ioUnit
./pkg/diagnostics/DIAGNOSTICS.h 149 NO PROCEDURE 
     &     diagLoc_ioUnit
./pkg/diagnostics/diagnostics_calc_phivel.F 266 DIAGNOSTICS_CALC_PHIVEL 
         IF ( diagLoc_ioUnit.EQ.0 ) THEN
./pkg/diagnostics/diagnostics_calc_phivel.F 267 DIAGNOSTICS_CALC_PHIVEL 
          CALL MDSFINDUNIT( diagLoc_ioUnit, myThid )
./pkg/diagnostics/diagnostics_calc_phivel.F 270 DIAGNOSTICS_CALC_PHIVEL 
          OPEN( diagLoc_ioUnit, FILE=dataFName, STATUS='unknown' )
./pkg/diagnostics/diagnostics_calc_phivel.F 273 DIAGNOSTICS_CALC_PHIVEL 
     &         'open unit=',diagLoc_ioUnit, ', file: ',dataFName(1:iL)
./pkg/diagnostics/diagnostics_calc_phivel.F 277 DIAGNOSTICS_CALC_PHIVEL 
         IF ( diagLoc_ioUnit.GT.0 ) THEN
./pkg/diagnostics/diagnostics_calc_phivel.F 278 DIAGNOSTICS_CALC_PHIVEL 
          WRITE(diagLoc_ioUnit,'(1P2E18.10,A,2I4,I8,A,2I4,I6,2A)')
./pkg/diagnostics/diagnostics_readparms.F 147 DIAGNOSTICS_READPARMS 
      diagLoc_ioUnit = 0
./pkg/diagnostics/diagstats_close_io.F 67 DIAGSTATS_CLOSE_IO 
      IF ( diagLoc_ioUnit.GT.0 ) THEN
./pkg/diagnostics/diagstats_close_io.F 68 DIAGSTATS_CLOSE_IO 
        CLOSE(diagLoc_ioUnit)