pkg/debug/debug_msg.F

C $Header: $
C $Name: $

#include "CPP_OPTIONS.h"

      SUBROUTINE DEBUG_MSG(
     I                text,
     I                myThid )
C     /==========================================================\
C     | SUBROUTINE DEBUG_MSG                                     |
C     | o Prints to STDOUT the text argument                     |
C     |==========================================================|
C     \==========================================================/
      IMPLICIT NONE

C     === Global data ===
#include "SIZE.h"
#include "EEPARAMS.h"

C     === Routine arguments ===
      CHARACTER*(*) text
      INTEGER myThid

C     === Local variables ====
      CHARACTER*(MAX_LEN_MBUF) msgBuf

      _BEGIN_MASTER( myThid )
      WRITE(msgBuf,'(A,A)') 'DEBUG_MSG: ',text
      CALL PRINT_MESSAGE( msgBuf,
     &   standardMessageUnit, SQUEEZE_RIGHT, myThid )
      _END_MASTER( )

      RETURN
      END
1	C $Header: $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	SUBROUTINE DEBUG_MSG(
7	I text,
8	I myThid )
9	C /==========================================================\
10	C \| SUBROUTINE DEBUG_MSG \|
11	C \| o Prints to STDOUT the text argument \|
12	C \|==========================================================\|
13	C \==========================================================/
14	IMPLICIT NONE
15
16	C === Global data ===
17	#include "SIZE.h"
18	#include "EEPARAMS.h"
19
20	C === Routine arguments ===
21	CHARACTER() text
22	INTEGER myThid
23
24	C === Local variables ====
25	CHARACTER*(MAX_LEN_MBUF) msgBuf
26
27	_BEGIN_MASTER( myThid )
28	WRITE(msgBuf,'(A,A)') 'DEBUG_MSG: ',text
29	CALL PRINT_MESSAGE( msgBuf,
30	& standardMessageUnit, SQUEEZE_RIGHT, myThid )
31	_END_MASTER( )
32
33	RETURN
34	END