/[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 - (show annotations) (download)
Tue May 13 17:42:00 2003 UTC (21 years, 2 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint51e_post, checkpoint50e_post, checkpoint51j_post, checkpoint50g_post, checkpoint51a_post, checkpoint51c_post, checkpoint51f_pre, checkpoint51, checkpoint51f_post, checkpoint51b_post, checkpoint51b_pre, branchpoint-genmake2, checkpoint50h_post, checkpoint51h_pre, checkpoint51g_post, checkpoint50f_post, checkpoint50f_pre, checkpoint51d_post, checkpoint51i_pre, checkpoint50i_post, checkpoint50e_pre
Branch point for: branch-genmake2, ecco-branch
Extended pkg/debug and instrumented main code to help track down fatal
errors.

1 C $Header: $
2 C $Name: $
3
4 #include "CPP_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