Symbol Description Uses
message Message to write 18


File Line number Procedure Code
./eesupp/src/print.F 109 PRINT_MESSAGE 
       IF ( message .EQ. ' ' ) THEN
./eesupp/src/print.F 126 PRINT_MESSAGE 
     &   message(iStart:iEnd)
./eesupp/src/print.F 137 PRINT_MESSAGE 
        iEnd   = ILNBLNK( message )
./eesupp/src/print.F 138 PRINT_MESSAGE 
        IF (iEnd.NE.0) WRITE(0,'(A)') message(1:iEnd)
./eesupp/src/print.F 154 PRINT_ERROR 
      SUBROUTINE PRINT_ERROR( message , myThid )
./eesupp/src/print.F 186 PRINT_ERROR 
      CHARACTER*(*) message
./eesupp/src/print.F 206 PRINT_ERROR 
      iEnd   = ILNBLNK( message )
./eesupp/src/print.F 215 PRINT_ERROR 
     &        message(1:iEnd)
./eesupp/src/print.F 241 PRINT_ERROR 
     &        message(1:iEnd)
./eesupp/src/print.F 250 PRINT_ERROR 
          WRITE(0,'(A)') message(1:iEnd)
./eesupp/src/print.F 253 PRINT_ERROR 
     &                   message(1:iEnd)
./eesupp/src/print.F 26 PRINT_MESSAGE 
      SUBROUTINE PRINT_MESSAGE( message, unit, sq , myThid )
./eesupp/src/print.F 58 PRINT_MESSAGE 
      CHARACTER*(*) message
./eesupp/src/print.F 81 PRINT_MESSAGE 
       iStart = IFNBLNK( message )
./eesupp/src/print.F 87 PRINT_MESSAGE 
       iEnd   = ILNBLNK( message )
./eesupp/src/print.F 89 PRINT_MESSAGE 
       iEnd   = LEN(message)
./eesupp/src/print.F 95 PRINT_MESSAGE 
       IF ( message .EQ. ' ' ) THEN
./eesupp/src/print.F 98 PRINT_MESSAGE 
        WRITE(unit,'(A)') message(iStart:iEnd)