pkg/debug/debug_msg.F

6d54cf9ca1 Ed H*0001 #include "DEBUG_OPTIONS.h"
73ead277e0 Alis*0002
066373e0d6 Jean*0003 CBOP
                0004 C     !ROUTINE: DEBUG_MSG
                0005 C     !INTERFACE:
73ead277e0 Alis*0006       SUBROUTINE DEBUG_MSG(
                0007      I                text,
                0008      I                myThid )
066373e0d6 Jean*0009
                0010 C     !DESCRIPTION: \bv
                0011 C     *==========================================================*
                0012 C     | SUBROUTINE DEBUG_MSG
                0013 C     | o Prints to STDOUT the text argument
                0014 C     *==========================================================*
                0015 C     \ev
                0016
                0017 C     !USES:
73ead277e0 Alis*0018       IMPLICIT NONE
                0019
                0020 C     === Global data ===
                0021 #include "SIZE.h"
                0022 #include "EEPARAMS.h"
                0023
066373e0d6 Jean*0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     text      :: test to write
                0026 C     myThid    :: my Thread Id number
73ead277e0 Alis*0027       CHARACTER*(*) text
                0028       INTEGER myThid
                0029
066373e0d6 Jean*0030 C     !LOCAL VARIABLES:
                0031 C     msgBuf    :: Informational/error message buffer
73ead277e0 Alis*0032       CHARACTER*(MAX_LEN_MBUF) msgBuf
066373e0d6 Jean*0033 CEOP
73ead277e0 Alis*0034
                0035       _BEGIN_MASTER( myThid )
066373e0d6 Jean*0036       WRITE(msgBuf,'(A11,A60)') 'DEBUG_MSG: ',text
                0037       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
                0038      &                    SQUEEZE_RIGHT, myThid )
                0039 C-    can be usefull to flush the io unit (but not standard f77)
                0040 c     CALL FLUSH(standardMessageUnit)
ea6e02f692 Ed H*0041       _END_MASTER( myThid )
73ead277e0 Alis*0042
                0043       RETURN
                0044       END