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

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

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

Revision 1.4 - (hide annotations) (download)
Sun Feb 4 14:38:42 2001 UTC (23 years, 3 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint38, checkpoint40pre2, checkpoint40pre4, pre38tag1, c37_adj, pre38-close, checkpoint39, checkpoint37, checkpoint36, checkpoint35, checkpoint40pre5, checkpoint40
Branch point for: pre38
Changes since 1.3: +2 -0 lines 
Made sure each .F and .h file had
the CVS keywords Header and Name at its start.
Most had header but very few currently have Name, so
lots of changes!
1 cnh 1.4 C $Header: $
2     C $Name: $
3 cnh 1.1 #include "CPP_EEOPTIONS.h"
4    
5     SUBROUTINE COMM_STATS
6     C /==========================================================\
7     C | SUBROUTINE COMM_STATS |
8     C | o Print out statistics from communication routines. |
9     C \==========================================================/
10     IMPLICIT NONE
11    
12     C == Global variables ==
13     #include "SIZE.h"
14     #include "EEPARAMS.h"
15     #include "EESUPPORT.h"
16     #include "EXCH.h"
17     #include "BAR2.h"
18    
19     C == Local variables ==
20     INTEGER bi, bj, I
21     CHARACTER*(MAX_LEN_MBUF) msgBuf
22    
23     C o For each tile print its excange statistics
24     WRITE(msgBuf,'(A)')
25     & '// ======================================================'
26     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
27     & SQUEEZE_RIGHT , 1)
28     WRITE(msgBuf,'(A)') '// Tile <-> Tile communication statistics'
29     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
30     & SQUEEZE_RIGHT , 1)
31     WRITE(msgBuf,'(A)')
32     & '// ======================================================'
33     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
34     & SQUEEZE_RIGHT , 1)
35    
36     IF ( exchCollectStatistics ) THEN
37     DO bj=1,nSy
38     DO bi=1,nSx
39     WRITE(msgBuf,'(A,A,I6.6)')
40     & '//',' o Tile number: ',tileNo(bi,bj)
41     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
42     & SQUEEZE_RIGHT , 1)
43     C o X exchange stats.
44     WRITE(msgBuf,'(A,A,I15)')
45     & '//',' No. X exchanges =',exchRecvXExchCount(1,bi,bj)
46     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
47     & SQUEEZE_RIGHT , 1)
48     WRITE(msgBuf,'(A,A,I15)')
49     & '//',' Max. X spins =',exchRecvXSpinMax (1,bi,bj)
50     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
51     & SQUEEZE_RIGHT , 1)
52     WRITE(msgBuf,'(A,A,I15)')
53     & '//',' Min. X spins =',exchRecvXSpinMin (1,bi,bj)
54     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
55     & SQUEEZE_RIGHT , 1)
56     WRITE(msgBuf,'(A,A,I15)')
57     & '//',' Total. X spins =',exchRecvXSpinCount(1,bi,bj)
58     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
59     & SQUEEZE_RIGHT , 1)
60     IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN
61     WRITE(msgBuf,'(A,A,1PE15.2)')
62     & '//',' Avg. X spins =',
63 cnh 1.2 & FLOAT(exchRecvXSpinCount(1,bi,bj))/
64     & FLOAT(exchRecvXExchCount(1,bi,bj))
65 cnh 1.1 ELSE
66     WRITE(msgBuf,'(A,A,1PE15.2)')
67     & '//',' Avg. X spins =',
68     & 0.
69     ENDIF
70     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
71     & SQUEEZE_RIGHT , 1)
72     C o Y exchange stats.
73     WRITE(msgBuf,'(A,A,I15)')
74     & '//',' No. Y exchanges =',exchRecvYExchCount(1,bi,bj)
75     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
76     & SQUEEZE_RIGHT , 1)
77     WRITE(msgBuf,'(A,A,I15)')
78     & '//',' Max. Y spins =',exchRecvYSpinMax (1,bi,bj)
79     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
80     & SQUEEZE_RIGHT , 1)
81     WRITE(msgBuf,'(A,A,I15)')
82     & '//',' Min. Y spins =',exchRecvYSpinMin (1,bi,bj)
83     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
84     & SQUEEZE_RIGHT , 1)
85     WRITE(msgBuf,'(A,A,I15)')
86     & '//',' Total. Y spins =',exchRecvYSpinCount(1,bi,bj)
87     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
88     & SQUEEZE_RIGHT , 1)
89     IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN
90     WRITE(msgBuf,'(A,A,1PE15.2)')
91     & '//',' Avg. Y spins =',
92 cnh 1.2 & FLOAT(exchRecvYSpinCount(1,bi,bj))/
93     & FLOAT(exchRecvYExchCount(1,bi,bj))
94 cnh 1.1 ELSE
95     WRITE(msgBuf,'(A,A,1PE15.2)')
96     & '//',' Avg. Y spins =',
97     & 0.
98     ENDIF
99     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
100     & SQUEEZE_RIGHT , 1)
101    
102     ENDDO
103     ENDDO
104     ENDIF
105    
106     IF ( bar2CollectStatistics ) THEN
107     DO I=1,nThreads
108     WRITE(msgBuf,'(A,A,I6.6)')
109     & '//',' o Thread number: ',I
110     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
111     & SQUEEZE_RIGHT , 1)
112     WRITE(msgBuf,'(A,A,I15)')
113     & '//',' No. barriers =',BAR2_barrierCount(1,I)
114     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
115     & SQUEEZE_RIGHT , 1)
116     WRITE(msgBuf,'(A,A,I15)')
117     & '//',' Max. barrier spins =',BAR2_spinsMax(1,I)
118     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
119     & SQUEEZE_RIGHT , 1)
120     WRITE(msgBuf,'(A,A,I15)')
121     & '//',' Min. barrier spins =',BAR2_spinsMin(1,I)
122     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
123     & SQUEEZE_RIGHT , 1)
124     WRITE(msgBuf,'(A,A,I15)')
125     & '//',' Total barrier spins =',BAR2_spinsCount(1,I)
126     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
127     & SQUEEZE_RIGHT , 1)
128     IF ( FLOAT(BAR2_spinsCount(1,I)) .NE. 0. ) THEN
129     WRITE(msgBuf,'(A,A,1PE15.2)')
130     & '//',' Avg. barrier spins =',
131     & FLOAT(BAR2_spinsCount(1,I))/FLOAT(BAR2_barrierCount(1,I))
132     ELSE
133     WRITE(msgBuf,'(A,A,1PE15.2)')
134     & '//',' Avg. barrier spins =',
135     & 0.
136     ENDIF
137     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
138     & SQUEEZE_RIGHT , 1)
139     ENDDO
140     ENDIF
141    
142     C
143     RETURN
144     END
145    
  ViewVC Help
Powered by ViewVC 1.1.22