/[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.15 by edhill, Thu Aug 10 17:46:55 2006 UTC revision 1.16 by mlosch, Mon Oct 27 05:13:22 2008 UTC
# Line 122  C     performance. Line 122  C     performance.
122  #ifdef REAL4_IS_SLOW  #ifdef REAL4_IS_SLOW
123  #define _RS Real*8  #define _RS Real*8
124  #define RS_IS_REAL8  #define RS_IS_REAL8
125    #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RL ( a, b )
126    #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RL ( a, b )
127    #define _EXCH_XY_R4(a,b) CALL EXCH_XY_RL ( a, b )
128    #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b )
129  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b)  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b)
130  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b )  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b )
131  #define _MPI_TYPE_RS MPI_DOUBLE_PRECISION  #define _MPI_TYPE_RS MPI_DOUBLE_PRECISION
132  #else  #else
133  #define _RS Real*4  #define _RS Real*4
134  #define RS_IS_REAL4  #define RS_IS_REAL4
135    #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RS ( a, b )
136    #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RS ( a, b )
137    #define _EXCH_XY_R4(a,b) CALL EXCH_XY_RS ( a, b )
138    #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RS ( a, b )
139  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b )  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b )
140  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b )  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b )
141  #define _MPI_TYPE_RS MPI_REAL  #define _MPI_TYPE_RS MPI_REAL
142  #endif  #endif
 #define _EXCH_XY_R4(a,b) CALL EXCH_XY_RL ( a, b )  
 #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b )  
143    
144  #define _RL Real*8  #define _RL Real*8
145  #define RL_IS_REAL8  #define RL_IS_REAL8
146    #define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b )
147    #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b )
148  #define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b )  #define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b )
149  #define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b )  #define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b )
150  #define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )  #define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )
151  #define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b )  #define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b )
152  #define _MPI_TYPE_RL MPI_DOUBLE_PRECISION  #define _MPI_TYPE_RL MPI_DOUBLE_PRECISION
153    
 #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RL ( a, b )  
 #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RL ( a, b )  
 #define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b )  
 #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b )  
   
154  #define _MPI_TYPE_R4 MPI_REAL  #define _MPI_TYPE_R4 MPI_REAL
155  #if (defined (TARGET_SGI) || defined (TARGET_AIX) || defined (TARGET_LAM))  #if (defined (TARGET_SGI) || defined (TARGET_AIX) || defined (TARGET_LAM))
156  #define _MPI_TYPE_R8 MPI_DOUBLE_PRECISION  #define _MPI_TYPE_R8 MPI_DOUBLE_PRECISION
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22