/[MITgcm]/MITgcm/pkg/debug/debug_leave.F
ViewVC logotype

Contents of /MITgcm/pkg/debug/debug_leave.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1.4.1 - (show annotations) (download)
Thu Oct 2 18:30:07 2003 UTC (20 years, 9 months ago) by adcroft
Branch: branch-genmake2
Changes since 1.1: +3 -3 lines
Mis-type CONFIG as CONF !!!

1 C $Header: /u/gcmpack/MITgcm/pkg/debug/debug_leave.F,v 1.1 2003/05/13 17:42:00 adcroft Exp $
2 C $Name: $
3
4 #include "DEBUG_OPTIONS.h"
5
6 SUBROUTINE DEBUG_LEAVE(
7 I text,
8 I myThid )
9 C /==========================================================\
10 C | SUBROUTINE DEBUG_LEAVE |
11 C | o Prints to STDOUT the text argument after "LEAVING 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)') 'LEAVING S/R ',text
28 CALL DEBUG_MSG( msgBuf, myThid )
29
30 RETURN
31 END

  ViewVC Help
Powered by ViewVC 1.1.22