Symbol Description Uses
message Message to write 19


File Line number Procedure Code
./eesupp/src/print.F 112 PRINT_MESSAGE 
       IF ( message .EQ. ' ' ) THEN
./eesupp/src/print.F 117 PRINT_MESSAGE 
     &   '(',PROCESS_HEADER,' ',idString,')',' ',message(iStart:iEnd)
./eesupp/src/print.F 139 PRINT_MESSAGE 
     &     .AND. message .NE. ' ' ) THEN
./eesupp/src/print.F 141 PRINT_MESSAGE 
          WRITE(0,'(A)') message(iStart:iEnd)
./eesupp/src/print.F 144 PRINT_MESSAGE 
     &                   message(iStart:iEnd)
./eesupp/src/print.F 156 PRINT_ERROR 
      SUBROUTINE PRINT_ERROR( message , myThid )
./eesupp/src/print.F 188 PRINT_ERROR 
      CHARACTER*(*) message
./eesupp/src/print.F 208 PRINT_ERROR 
      iEnd   = ILNBLNK( message )
./eesupp/src/print.F 217 PRINT_ERROR 
     &        message(1:iEnd)
./eesupp/src/print.F 241 PRINT_ERROR 
     &        message(1:iEnd)
./eesupp/src/print.F 257 PRINT_ERROR 
          WRITE(0,'(A)') message(1:iEnd)
./eesupp/src/print.F 260 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)