pkg/debug/debug_call.F

6d54cf9ca1 Ed H*0001 #include "DEBUG_OPTIONS.h"
73ead277e0 Alis*0002
                0003       SUBROUTINE DEBUG_CALL(
                0004      I                text,
                0005      I                myThid )
                0006 C     /==========================================================\
                0007 C     | SUBROUTINE DEBUG_CALL                                    |
                0008 C     | o Prints to STDOUT the text argument after "CALLING S/R" |
                0009 C     |==========================================================|
                0010 C     \==========================================================/
                0011       IMPLICIT NONE
                0012
                0013 C     === Global data ===
                0014 #include "SIZE.h"
                0015 #include "EEPARAMS.h"
                0016
                0017 C     === Routine arguments ===
                0018       CHARACTER*(*) text
                0019       INTEGER myThid
                0020
                0021 C     === Local variables ====
                0022       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0023
                0024       WRITE(msgBuf,'(A,A)') 'CALLING S/R ',text
                0025       CALL DEBUG_MSG( msgBuf, myThid )
                0026
                0027       RETURN
                0028       END