/[MITgcm]/MITgcm/eesupp/src/comm_stats.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/comm_stats.F

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

revision 1.3 by adcroft, Mon Mar 27 22:25:40 2000 UTC revision 1.6 by edhill, Sat Mar 27 03:51:50 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
4    
5    CBOP
6    C     !ROUTINE: COMM_STATS
7    
8    C     !INTERFACE:
9        SUBROUTINE COMM_STATS        SUBROUTINE COMM_STATS
 C     /==========================================================\  
 C     | SUBROUTINE COMM_STATS                                    |  
 C     | o Print out statistics from communication routines.      |  
 C     \==========================================================/  
10        IMPLICIT NONE        IMPLICIT NONE
11    
12    C     !DESCRIPTION:
13    C     *==========================================================
14    C     | SUBROUTINE COMM\_STATS                                    
15    C     | o Print out statistics from communication routines.      
16    C     *==========================================================
17    
18    C     !USES:
19  C     == Global variables ==  C     == Global variables ==
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 14  C     == Global variables == Line 23  C     == Global variables ==
23  #include "EXCH.h"  #include "EXCH.h"
24  #include "BAR2.h"  #include "BAR2.h"
25    
26    C     !LOCAL VARIABLES:
27  C     == Local variables ==  C     == Local variables ==
28    C     bi, bj, I :: Loop counters
29    C     msgBuf    :: Temp. for building text messages.
30        INTEGER bi, bj, I        INTEGER bi, bj, I
31        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
32    CEOP
33            
34  C      o For each tile print its excange statistics  C      o For each tile print its excange statistics
35         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22