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

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

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

revision 1.9 by dimitri, Tue Apr 6 19:24:34 2004 UTC revision 1.10 by dimitri, Tue Apr 6 21:03:14 2004 UTC
# Line 105  C     performance. Line 105  C     performance.
105  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b )  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b )
106  #define _MPI_TYPE_RS MPI_REAL  #define _MPI_TYPE_RS MPI_REAL
107  #endif  #endif
108  #define _EXCH_XY_R4(a,b) CALL EXCH2_XY_RL ( a, b )  #define _EXCH_XY_R4(a,b) CALL EXCH_XY_RL ( a, b )
109  #define _EXCH_XYZ_R4(a,b) CALL EXCH2_XYZ_RL ( a, b )  #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b )
110    
111  #define _RL Real*8  #define _RL Real*8
112  #define _EXCH_XY_R8(a,b) CALL EXCH2_XY_RL ( a, b )  #define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b )
113  #define _EXCH_XYZ_R8(a,b) CALL EXCH2_XYZ_RL ( a, b )  #define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b )
114  #define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )  #define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )
115  #define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b )  #define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b )
116  #define _MPI_TYPE_RL MPI_DOUBLE_PRECISION  #define _MPI_TYPE_RL MPI_DOUBLE_PRECISION
117    
118  #define _EXCH_XY_RS(a,b) CALL EXCH2_XY_RL ( a, b )  #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RL ( a, b )
119  #define _EXCH_XYZ_RS(a,b) CALL EXCH2_XYZ_RL ( a, b )  #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RL ( a, b )
120  #define _EXCH_XY_RL(a,b) CALL EXCH2_XY_RL ( a, b )  #define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b )
121  #define _EXCH_XYZ_RL(a,b) CALL EXCH2_XYZ_RL ( a, b )  #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b )
122    
123  #define _MPI_TYPE_R4 MPI_REAL  #define _MPI_TYPE_R4 MPI_REAL
124  #ifdef TARGET_SGI  #ifdef TARGET_SGI
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22