/[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.2.1 - (show annotations) (download)
Tue Jun 24 23:07:32 2003 UTC (21 years ago) by heimbach
Branch: ecco-branch
CVS Tags: ecco_c51_e34e, ecco_c51_e34b, ecco_c51_e34c, ecco_c51_e34a, ecco_c51_e34f, ecco_c51_e34, ecco_c51_e34g, ecco_c51_e34d
Changes since 1.1: +2 -2 lines
Merging from c51

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 "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