/[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.4 by cnh, Sun Feb 4 14:38:42 2001 UTC revision 1.5 by cnh, Fri Sep 21 03:54:34 2001 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  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 16  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.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22