/[MITgcm]/MITgcm/eesupp/inc/EXCH.h
ViewVC logotype

Diff of /MITgcm/eesupp/inc/EXCH.h

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

revision 1.3 by cnh, Sun Feb 4 14:38:41 2001 UTC revision 1.5 by cnh, Fri Apr 2 15:33:58 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  C  C
4  C     /==========================================================\  CBOP
5  C     | EXCH.h                                                   |  C     !ROUTINE: EXCH.h
6  C     |==========================================================|  C     !INTERFACE:
7  C     | Support data structures for the MITgcm UV "exchange      |  C     include "EXCH.h"
8  C     | routines" code. This data should be private to the       |  C
9    C     !DESCRIPTION:
10    C     *==========================================================*
11    C     | EXCH.h                                                    
12    C     *==========================================================*
13    C     | Support data structures for the MITgcm UV "exchange      
14    C     | routines" code. This data should be private to the        
15  C     | execution environment routines.  C     | execution environment routines.
16  C     \==========================================================/  C     *==========================================================*
17    CEOP
18    
19  #ifndef _RL  #ifndef _RL
20  #define _RL Real*8  #define _RL Real*8
# Line 189  C      xxxxRecvBuf - Buffer used for rec Line 196  C      xxxxRecvBuf - Buffer used for rec
196       &  westSendBuf_RS, eastSendBuf_RS,       &  westSendBuf_RS, eastSendBuf_RS,
197       &  southSendBuf_RS, northSendBuf_RS,       &  southSendBuf_RS, northSendBuf_RS,
198       &  westRecvBuf_RS, eastRecvBuf_RS,       &  westRecvBuf_RS, eastRecvBuf_RS,
199       &  southRecvBuf_RS, northRecvBuf_RS       &  southRecvBuf_RS, northRecvBuf_RS,
200         &  westSendBuf_R8, eastSendBuf_R8,
201         &  southSendBuf_R8, northSendBuf_R8,
202         &  westRecvBuf_R8, eastRecvBuf_R8,
203         &  southRecvBuf_R8, northRecvBuf_R8,
204         &  westSendBuf_R4, eastSendBuf_R4,
205         &  southSendBuf_R4, northSendBuf_R4,
206         &  westRecvBuf_R4, eastRecvBuf_R4,
207         &  southRecvBuf_R4, northRecvBuf_R4
208         _RL   westSendBuf_RL( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,         _RL   westSendBuf_RL( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
209       &                       nSx, nSy )       &                       nSx, nSy )
210         _RL   eastSendBuf_RL( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,         _RL   eastSendBuf_RL( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
# Line 222  C      xxxxRecvBuf - Buffer used for rec Line 237  C      xxxxRecvBuf - Buffer used for rec
237       &                       nSx, nSy )       &                       nSx, nSy )
238         _RS  northRecvBuf_RS( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,         _RS  northRecvBuf_RS( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
239       &                       nSx, nSy )       &                       nSx, nSy )
240           _R8   westSendBuf_R8( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
241         &                       nSx, nSy )
242           _R8   eastSendBuf_R8( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
243         &                       nSx, nSy )
244           _R8  southSendBuf_R8( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
245         &                       nSx, nSy )
246           _R8  northSendBuf_R8( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
247         &                       nSx, nSy )
248           _R8   westRecvBuf_R8( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
249         &                       nSx, nSy )
250           _R8   eastRecvBuf_R8( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
251         &                       nSx, nSy )
252           _R8  southRecvBuf_R8( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
253         &                       nSx, nSy )
254           _R8  northRecvBuf_R8( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
255         &                       nSx, nSy )
256           _R4   westSendBuf_R4( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
257         &                       nSx, nSy )
258           _R4   eastSendBuf_R4( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
259         &                       nSx, nSy )
260           _R4  southSendBuf_R4( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
261         &                       nSx, nSy )
262           _R4  northSendBuf_R4( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
263         &                       nSx, nSy )
264           _R4   westRecvBuf_R4( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
265         &                       nSx, nSy )
266           _R4   eastRecvBuf_R4( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
267         &                       nSx, nSy )
268           _R4  southRecvBuf_R4( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
269         &                       nSx, nSy )
270           _R4  northRecvBuf_R4( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
271         &                       nSx, nSy )
272    
273  C--    COMMON / EXCH_I / INTEGER common arrays for exchanges  C--    COMMON / EXCH_I / INTEGER common arrays for exchanges
274  C      xxxxSendAck - Flag indicating ready to send data.  C      xxxxSendAck - Flag indicating ready to send data.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22