/[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.5 by cnh, Fri Sep 21 03:54:35 2001 UTC revision 1.6 by dimitri, Wed Nov 12 00:02:44 2003 UTC
# Line 97  C     performance. Line 97  C     performance.
97  #define RS_IS_REAL8  #define RS_IS_REAL8
98  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b)  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b)
99  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b )  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b )
100    #define _MPI_TYPE_RS MPI_DOUBLE_PRECISION
101  #else  #else
102  #define _RS Real*4  #define _RS Real*4
103  #define RS_IS_REAL4  #define RS_IS_REAL4
104  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b )  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b )
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
107  #endif  #endif
108  #define _EXCH_XY_R4(a,b) CALL EXCH_XY_RS ( a, b )  #define _EXCH_XY_R4(a,b) CALL EXCH_XY_RS ( a, b )
109  #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RS ( a, b )  #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RS ( a, b )
# Line 111  C     performance. Line 113  C     performance.
113  #define _EXCH_XYZ_R8(a,b) CALL EXCH_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
117    
118  #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RS ( a, b )  #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RS ( a, b )
119  #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RS ( a, b )  #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RS ( a, b )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22