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

Contents of /MITgcm/eesupp/src/bar2.F

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


Revision 1.4 - (show annotations) (download)
Fri Sep 21 03:54:34 2001 UTC (22 years, 6 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint52l_pre, checkpoint44e_post, hrcube4, hrcube5, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, release1_p13_pre, checkpoint50c_post, checkpoint46f_post, checkpoint52d_pre, checkpoint48e_post, checkpoint50c_pre, checkpoint44f_post, checkpoint46b_post, checkpoint52j_pre, checkpoint43a-release1mods, checkpoint51o_pre, ecco_c50_e32, ecco_c50_e33, ecco_c50_e30, ecco_c50_e31, release1_p13, checkpoint51l_post, checkpoint48i_post, checkpoint46l_pre, checkpoint52l_post, checkpoint52k_post, chkpt44d_post, checkpoint51, checkpoint50, checkpoint52, release1_p8, release1_p9, checkpoint50d_post, release1_p1, release1_p2, release1_p3, release1_p4, release1_p5, release1_p6, release1_p7, checkpoint52f_post, checkpoint50b_pre, checkpoint44e_pre, checkpoint51f_post, release1_b1, ecco_c51_e34d, ecco_c51_e34e, ecco_c51_e34f, ecco_c51_e34g, ecco_c51_e34a, ecco_c51_e34b, ecco_c51_e34c, checkpoint48b_post, checkpoint43, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint51t_post, checkpoint51n_post, release1_chkpt44d_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, release1_p11, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, icebear5, icebear4, icebear3, icebear2, checkpoint46d_pre, checkpoint48d_post, release1-branch_tutorials, checkpoint48f_post, checkpoint45d_post, checkpoint52b_pre, checkpoint46j_pre, checkpoint51l_pre, chkpt44a_post, checkpoint44h_pre, checkpoint48h_post, checkpoint51q_post, ecco_c50_e29, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, ecco_c50_e28, chkpt44c_pre, checkpoint48a_post, checkpoint45a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52f_pre, ecco_c44_e19, ecco_c44_e18, ecco_c44_e17, ecco_c44_e16, release1_p12, release1_p10, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint47j_post, ecco_c50_e33a, branch-exfmods-tag, checkpoint44g_post, branchpoint-genmake2, checkpoint46e_pre, checkpoint51r_post, checkpoint48c_post, checkpoint45b_post, checkpoint46b_pre, checkpoint51i_post, release1-branch-end, release1_final_v1, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint46, checkpoint47b_post, checkpoint44b_post, ecco_c51_e34, checkpoint46h_pre, checkpoint52d_post, checkpoint46m_post, checkpoint46a_pre, checkpoint50g_post, checkpoint45c_post, ecco_ice2, ecco_ice1, checkpoint44h_post, checkpoint46g_post, release1_p12_pre, checkpoint52a_pre, ecco_c44_e22, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, ecco_c44_e25, checkpoint51i_pre, checkpoint52h_pre, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, chkpt44a_pre, checkpoint46i_post, ecco_c44_e23, ecco_c44_e20, ecco_c44_e21, ecco_c44_e26, ecco_c44_e27, ecco_c44_e24, checkpoint46c_post, ecco-branch-mod1, ecco-branch-mod2, ecco-branch-mod3, ecco-branch-mod4, ecco-branch-mod5, branch-netcdf, checkpoint50d_pre, checkpoint46e_post, release1_beta1, checkpoint51e_post, checkpoint44b_pre, checkpoint42, checkpoint41, checkpoint47, checkpoint44, checkpoint45, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51o_post, checkpoint51f_pre, chkpt44c_post, checkpoint48g_post, checkpoint47h_post, checkpoint52a_post, checkpoint44f_pre, checkpoint51g_post, ecco_c52_e35, checkpoint46d_post, checkpoint50b_post, release1-branch_branchpoint, checkpoint51m_post, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: c24_e25_ice, branch-exfmods-curt, release1_final, release1-branch, branch-genmake2, release1, branch-nonh, tg2-branch, ecco-branch, release1_50yr, netcdf-sm0, icebear, checkpoint51n_branch, release1_coupled
Changes since 1.3: +68 -6 lines
Starting to bring comments up to date and format comments
for document extraction of "prototypes".

1 C $Header: /u/gcmpack/models/MITgcmUV/eesupp/src/bar2.F,v 1.3 2001/02/04 14:38:42 cnh Exp $
2 C $Name: $
3 #include "CPP_EEOPTIONS.h"
4
5 CBOP
6 C !ROUTINE: BAR2_INIT
7
8 C !INTERFACE:
9 SUBROUTINE BAR2_INIT( myThid )
10 IMPLICIT NONE
11
12 C !DESCRIPTION:
13 C *=====================================================================*
14 C | SUBROUTINE BAR2_INIT
15 C | o Setup global barrier data structures.
16 C *=====================================================================*
17 C | Initialise global barrier data structures that can be used in
18 C | conjunction with MPI or that can also be used to create
19 C *=====================================================================*
20
21 C !USES:
22 C == Global variables ==
23 #include "SIZE.h"
24 #include "EEPARAMS.h"
25 #include "EESUPPORT.h"
26 #include "BAR2.h"
27 C
28
29 C !INPUT/OUTPUT PARAMETERS:
30 C == Routine arguments ==
31 C myThid :: Thread number of this instance of BAR2_INIT
32 INTEGER myThid
33
34 C !LOCAL VARIABLES:
35 C == Local variables ==
36 C I :: Loop counter
37 INTEGER I
38 CEOP
39
40 C
41 DO I = 1, lShare4
42 BAR2_level(I,myThid) = 0
43 BAR2_barrierCount(I,myThid) = 0
44 BAR2_spinsCount(I,myThid) = 0
45 BAR2_spinsCount(I,myThid) = 0
46 BAR2_spinsMax (I,myThid) = 0
47 BAR2_spinsMin (I,myThid) = 1000000000
48 ENDDO
49 C
50 bar2CollectStatistics = .TRUE.
51 C
52 RETURN
53 END
54
55 CBOP
56
57 C !ROUTINE: BAR2
58
59 C !INTERFACE:
60 SUBROUTINE BAR2( myThid )
61 IMPLICIT NONE
62
63 C !DESCRIPTION:
64 C *=====================================================================*
65 C | SUBROUTINE BAR2
66 C | o Global barrier routine.
67 C *=====================================================================*
68 C | Implements a simple true shared memory barrier that uses a global
69 C | heap array that all threads can access to synchronise. Each thread
70 C | writes to a predefined location. One thread polls the locations. Other
71 C | threads poll an all clear assertion location. Once the polling
72 C | thread that is looping over locations sees writes for each thread is
73 C | writes the all clear assertion location and everyone proceeds. A
74 C | cyclic series of locations is used to ensure that race conditions do
75 C | not occur. A few simple statistics are recorded giving number of
76 C | barrier calls, max, min and aggregate polling loop counts.
77 C *=====================================================================*
78
79 C !USES:
80 C == Global variables ==
81 #include "SIZE.h"
82 #include "EEPARAMS.h"
83 #include "EESUPPORT.h"
84 #include "BAR2.h"
85
86 C !INPUT/OUTPUT PARAMETERS:
87 C == Routine arguments ==
88 C myThid :: Thread number of this instance of BAR2
89 INTEGER myThid
90
91 C !LOCAL VARIABLES:
92 C == Local variables ==
93 C myLevel :: Temp. to hold "active" barrier level
94 C nDone :: Temp. for counting number of threads that
95 C have reached the barrier.
96 C I :: Loop counter
97 C spinCount :: Temp. for doing statistics on how many
98 C times barrier code looped.
99 INTEGER myLevel
100 INTEGER nDone
101 INTEGER I
102 INTEGER spinCount
103 CEOP
104
105 C
106 spinCount = 0
107 C
108 IF ( myThid .NE. 1 ) THEN
109
110 BAR2_level(1,myThid) = BAR2_level(1,myThid)+1
111 myLevel = BAR2_level(1,myThid)
112 10 CONTINUE
113 IF ( BAR2_level(1,1) .EQ. myLevel ) GOTO 11
114 spinCount = spinCount+1
115 CALL FOOL_THE_COMPILER( BAR2_level )
116 GOTO 10
117 11 CONTINUE
118
119 ELSE
120
121 myLevel = BAR2_level(1,1)
122 12 CONTINUE
123 CALL FOOL_THE_COMPILER( BAR2_level )
124 nDone = 1
125 DO I = 2, nThreads
126 IF ( BAR2_level(1,1) .EQ. BAR2_level(1,I)-1 ) nDone = nDone+1
127 ENDDO
128 spinCount = spinCount+1
129 IF ( nDone .LT. nThreads ) GOTO 12
130
131 BAR2_level(1,1) = myLevel+1
132
133 ENDIF
134 C
135 BAR2_barrierCount(1,myThid) = BAR2_barrierCount(1,myThid)+1
136 BAR2_spinsCount(1,myThid) = BAR2_spinsCount(1,myThid)+spinCount
137 BAR2_spinsMax (1,myThid) = MAX(BAR2_spinsMax(1,myThid),spinCount)
138 BAR2_spinsMin (1,myThid) = MIN(BAR2_spinsMin(1,myThid),spinCount)
139 C
140 RETURN
141 END
142

  ViewVC Help
Powered by ViewVC 1.1.22