eesupp/src/exch_cycle_ebl.F

C $Header: /u/gcmpack/MITgcm/eesupp/src/exch_cycle_ebl.F,v 1.3 2001/09/21 03:54:34 cnh Exp $
C $Name:  $

#include "CPP_EEOPTIONS.h"

CBOP
C     !ROUTINE: EXCH_CYCLE_EBL

C     !INTERFACE:
      SUBROUTINE EXCH_CYCLE_EBL( myThid )
      IMPLICIT NONE

C     !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE EXCH_CYCLE_EBL                                 
C     | o Cycle exchange buffer level.                            
C     *==========================================================*
C     | Step the "exchange buffer level" to next value.           
C     | The buffer level is used to prevent consecutive messages  
C     | overwriting one another. Because we know that every tile  
C     | will participate in an exchange we can be sure that every 
C     | tile will cycle through the buffers with the same         
C     | sequence. Also we know that a tile cannot start a new     
C     | exchange before it has completed its end of the previous  
C     | exchange. Thus by cycling through three buffer levels we  
C     | can be sure that the buffer we write to will be free.     
C     |  That is by the time we are participating in the third    
C     | exchange transaction we know that both ends of the first  
C     | transaction must have completed.                          
C     | Note --                                                   
C     | 1. We allow more than three levels below although this    
C     | is not necessary.                                         
C     *==========================================================*

C     !USES:
C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "EXCH.h"

C     !INPUT PARAMETERS:
C     == Routine arguments ==
C     myThid :: Thread number of this instance of the routine
      INTEGER myThid

C     !LOCAL VARIABLES:
C     == Local variables ==
C     bi, bj :: Loop counters
      INTEGER bi, bj
CEOP

      DO bj=myByLo(myThid),myByHi(myThid)
       DO bi=myBxLo(myThid),myBxHi(myThid)
C--     Use next level exchange buffer in cycle.
        exchangeBufLevel(1,bi,bj) = exchangeBufLevel(1,bi,bj)+1
        IF ( exchangeBufLevel(1,bi,bj) .GT. NUMBER_OF_BUFFER_LEVELS )
     &   exchangeBufLevel(1,bi,bj) = 1
       ENDDO
      ENDDO

      RETURN
      END
1	heimbach	1.4	C $Header: /u/gcmpack/MITgcm/eesupp/src/exch_cycle_ebl.F,v 1.3 2001/09/21 03:54:34 cnh Exp $
2	cnh	1.3	C $Name: $
3	heimbach	1.4
4			#include "CPP_EEOPTIONS.h"
5	cnh	1.1
6	cnh	1.3	CBOP
7			C !ROUTINE: EXCH_CYCLE_EBL
8
9			C !INTERFACE:
10	cnh	1.1	SUBROUTINE EXCH_CYCLE_EBL( myThid )
11			IMPLICIT NONE
12	cnh	1.3
13			C !DESCRIPTION:
14			C ==========================================================
15			C \| SUBROUTINE EXCH_CYCLE_EBL
16			C \| o Cycle exchange buffer level.
17			C ==========================================================
18			C \| Step the "exchange buffer level" to next value.
19			C \| The buffer level is used to prevent consecutive messages
20			C \| overwriting one another. Because we know that every tile
21			C \| will participate in an exchange we can be sure that every
22			C \| tile will cycle through the buffers with the same
23			C \| sequence. Also we know that a tile cannot start a new
24			C \| exchange before it has completed its end of the previous
25			C \| exchange. Thus by cycling through three buffer levels we
26			C \| can be sure that the buffer we write to will be free.
27			C \| That is by the time we are participating in the third
28			C \| exchange transaction we know that both ends of the first
29			C \| transaction must have completed.
30			C \| Note --
31			C \| 1. We allow more than three levels below although this
32			C \| is not necessary.
33			C ==========================================================
34
35			C !USES:
36	cnh	1.1	C == Global data ==
37			#include "SIZE.h"
38			#include "EEPARAMS.h"
39			#include "EESUPPORT.h"
40			#include "EXCH.h"
41
42	cnh	1.3	C !INPUT PARAMETERS:
43	cnh	1.1	C == Routine arguments ==
44	cnh	1.3	C myThid :: Thread number of this instance of the routine
45	cnh	1.1	INTEGER myThid
46
47	cnh	1.3	C !LOCAL VARIABLES:
48	cnh	1.1	C == Local variables ==
49	cnh	1.3	C bi, bj :: Loop counters
50	cnh	1.1	INTEGER bi, bj
51	cnh	1.3	CEOP
52	cnh	1.1
53			DO bj=myByLo(myThid),myByHi(myThid)
54			DO bi=myBxLo(myThid),myBxHi(myThid)
55			C-- Use next level exchange buffer in cycle.
56			exchangeBufLevel(1,bi,bj) = exchangeBufLevel(1,bi,bj)+1
57			IF ( exchangeBufLevel(1,bi,bj) .GT. NUMBER_OF_BUFFER_LEVELS )
58			& exchangeBufLevel(1,bi,bj) = 1
59			ENDDO
60			ENDDO
61
62			RETURN
63			END