pkg/debug/debug_call.F

C $Header: $
C $Name: $

#include "CPP_OPTIONS.h"

      SUBROUTINE DEBUG_CALL(
     I                text,
     I                myThid )
C     /==========================================================\
C     | SUBROUTINE DEBUG_CALL                                    |
C     | o Prints to STDOUT the text argument after "CALLING S/R" |
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

      WRITE(msgBuf,'(A,A)') 'CALLING S/R ',text
      CALL DEBUG_MSG( msgBuf, myThid )

      RETURN
      END
1	adcroft	1.1	C $Header: $
2			C $Name: $
3
4			#include "CPP_OPTIONS.h"
5
6			SUBROUTINE DEBUG_CALL(
7			I text,
8			I myThid )
9			C /==========================================================\
10			C \| SUBROUTINE DEBUG_CALL \|
11			C \| o Prints to STDOUT the text argument after "CALLING S/R" \|
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			WRITE(msgBuf,'(A,A)') 'CALLING S/R ',text
28			CALL DEBUG_MSG( msgBuf, myThid )
29
30			RETURN
31			END