/[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.2 by adcroft, Wed Mar 15 16:00:50 2000 UTC revision 1.6 by edhill, Sat Apr 3 04:46:34 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    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 16  C     \================================= Line 24  C     \=================================
24  #define _RS Real*4  #define _RS Real*4
25  #endif  #endif
26    
27    #ifndef _R8
28    #define _R8 Real*8
29    #endif
30    
31    #ifndef _R4
32    #define _R4 Real*4
33    #endif
34    
35  #ifndef _tileCommModeW  #ifndef _tileCommModeW
36  #define _tileCommModeW(a,b) tileCommModeW(a,b)  #define _tileCommModeW(a,b) tileCommModeW(a,b)
37  #endif  #endif
# Line 188  C      xxxxRecvBuf - Buffer used for rec Line 204  C      xxxxRecvBuf - Buffer used for rec
204       &  westSendBuf_RS, eastSendBuf_RS,       &  westSendBuf_RS, eastSendBuf_RS,
205       &  southSendBuf_RS, northSendBuf_RS,       &  southSendBuf_RS, northSendBuf_RS,
206       &  westRecvBuf_RS, eastRecvBuf_RS,       &  westRecvBuf_RS, eastRecvBuf_RS,
207       &  southRecvBuf_RS, northRecvBuf_RS       &  southRecvBuf_RS, northRecvBuf_RS,
208         &  westSendBuf_R8, eastSendBuf_R8,
209         &  southSendBuf_R8, northSendBuf_R8,
210         &  westRecvBuf_R8, eastRecvBuf_R8,
211         &  southRecvBuf_R8, northRecvBuf_R8,
212         &  westSendBuf_R4, eastSendBuf_R4,
213         &  southSendBuf_R4, northSendBuf_R4,
214         &  westRecvBuf_R4, eastRecvBuf_R4,
215         &  southRecvBuf_R4, northRecvBuf_R4
216         _RL   westSendBuf_RL( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,         _RL   westSendBuf_RL( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
217       &                       nSx, nSy )       &                       nSx, nSy )
218         _RL   eastSendBuf_RL( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,         _RL   eastSendBuf_RL( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
# Line 221  C      xxxxRecvBuf - Buffer used for rec Line 245  C      xxxxRecvBuf - Buffer used for rec
245       &                       nSx, nSy )       &                       nSx, nSy )
246         _RS  northRecvBuf_RS( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,         _RS  northRecvBuf_RS( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
247       &                       nSx, nSy )       &                       nSx, nSy )
248           _R8   westSendBuf_R8( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
249         &                       nSx, nSy )
250           _R8   eastSendBuf_R8( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
251         &                       nSx, nSy )
252           _R8  southSendBuf_R8( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
253         &                       nSx, nSy )
254           _R8  northSendBuf_R8( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
255         &                       nSx, nSy )
256           _R8   westRecvBuf_R8( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
257         &                       nSx, nSy )
258           _R8   eastRecvBuf_R8( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
259         &                       nSx, nSy )
260           _R8  southRecvBuf_R8( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
261         &                       nSx, nSy )
262           _R8  northRecvBuf_R8( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
263         &                       nSx, nSy )
264           _R4   westSendBuf_R4( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
265         &                       nSx, nSy )
266           _R4   eastSendBuf_R4( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
267         &                       nSx, nSy )
268           _R4  southSendBuf_R4( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
269         &                       nSx, nSy )
270           _R4  northSendBuf_R4( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
271         &                       nSx, nSy )
272           _R4   westRecvBuf_R4( L_WBUFFER, NUMBER_OF_BUFFER_LEVELS,
273         &                       nSx, nSy )
274           _R4   eastRecvBuf_R4( L_EBUFFER, NUMBER_OF_BUFFER_LEVELS,
275         &                       nSx, nSy )
276           _R4  southRecvBuf_R4( L_SBUFFER, NUMBER_OF_BUFFER_LEVELS,
277         &                       nSx, nSy )
278           _R4  northRecvBuf_R4( L_NBUFFER, NUMBER_OF_BUFFER_LEVELS,
279         &                       nSx, nSy )
280    
281  C--    COMMON / EXCH_I / INTEGER common arrays for exchanges  C--    COMMON / EXCH_I / INTEGER common arrays for exchanges
282  C      xxxxSendAck - Flag indicating ready to send data.  C      xxxxSendAck - Flag indicating ready to send data.
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22