Symbol Description Uses
message Text string to print 20


File Line number Procedure Code
./eesupp/src/print.F 114 PRINT_ERROR 
     &  message(iStart:iEnd)
./eesupp/src/print.F 124 PRINT_ERROR 
        IF (iEnd.NE.0) WRITE(0,'(A)') message(1:iEnd)
./eesupp/src/print.F 1348 PRINT_MESSAGE 
      SUBROUTINE PRINT_MESSAGE( message, unit, sq , myThid )
./eesupp/src/print.F 1382 PRINT_MESSAGE 
      CHARACTER*(*) message
./eesupp/src/print.F 1399 PRINT_MESSAGE 
       iStart = IFNBLNK( message )
./eesupp/src/print.F 1405 PRINT_MESSAGE 
       iEnd   = ILNBLNK( message )
./eesupp/src/print.F 1407 PRINT_MESSAGE 
       iEnd   = LEN(message)
./eesupp/src/print.F 1413 PRINT_MESSAGE 
       IF ( message .EQ. ' ' ) THEN
./eesupp/src/print.F 1416 PRINT_MESSAGE 
        WRITE(unit,'(A)') message(iStart:iEnd)
./eesupp/src/print.F 1427 PRINT_MESSAGE 
       IF ( message .EQ. ' ' ) THEN
./eesupp/src/print.F 1444 PRINT_MESSAGE 
     &   message(iStart:iEnd)
./eesupp/src/print.F 1455 PRINT_MESSAGE 
        iEnd   = ILNBLNK( message )
./eesupp/src/print.F 1456 PRINT_MESSAGE 
        IF (iEnd.NE.0) WRITE(0,'(A)') message(1:iEnd)
./eesupp/src/print.F 27 PRINT_ERROR 
      SUBROUTINE PRINT_ERROR( message , myThid )
./eesupp/src/print.F 62 PRINT_ERROR 
      CHARACTER*(*) message
./eesupp/src/print.F 75 PRINT_ERROR 
      iStart = IFNBLNK( message )
./eesupp/src/print.F 76 PRINT_ERROR 
      iEnd   = ILNBLNK( message )
./eesupp/src/print.F 81 PRINT_ERROR 
       IF ( message .EQ. ' ' ) THEN
./eesupp/src/print.F 85 PRINT_ERROR 
     &   message(iStart:iEnd)
./eesupp/src/print.F 96 PRINT_ERROR 
       IF ( message .EQ. ' ' ) THEN