/[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.17 by jmc, Tue Apr 28 17:51:11 2009 UTC revision 1.18 by heimbach, Sun May 24 16:57:49 2009 UTC
# Line 140  C  enable to call the corresponding R4 o Line 140  C  enable to call the corresponding R4 o
140  #define RL_IS_REAL8  #define RL_IS_REAL8
141  #define _GLOBAL_SUM_RL(a,b) CALL GLOBAL_SUM_R8 ( a, b )  #define _GLOBAL_SUM_RL(a,b) CALL GLOBAL_SUM_R8 ( a, b )
142  #define _GLOBAL_MAX_RL(a,b) CALL GLOBAL_MAX_R8 ( a, b )  #define _GLOBAL_MAX_RL(a,b) CALL GLOBAL_MAX_R8 ( a, b )
143    cph(
144    cph Needed for some backward compatibility with broken packages
145    #define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )
146    #define _GLOBAL_MAX_R8(a,b) CALL GLOBAL_MAX_R8 ( a, b )
147    cph)
148  #define _MPI_TYPE_RL MPI_DOUBLE_PRECISION  #define _MPI_TYPE_RL MPI_DOUBLE_PRECISION
149    
150  #define _MPI_TYPE_R4 MPI_REAL  #define _MPI_TYPE_R4 MPI_REAL
# Line 156  C        b) exch R4 & R8 macros are not Line 161  C        b) exch R4 & R8 macros are not
161  C           will directly call the corrresponding S/R.  C           will directly call the corrresponding S/R.
162  #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RS ( a, b )  #define _EXCH_XY_RS(a,b) CALL EXCH_XY_RS ( a, b )
163  #define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b )  #define _EXCH_XY_RL(a,b) CALL EXCH_XY_RL ( a, b )
 c#define _EXCH_XY_R4(a,b) CALL EXCH_XY_R4 ( a, b )  
 c#define _EXCH_XY_R8(a,b) CALL EXCH_XY_R8 ( a, b )  
164  #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RS ( a, b )  #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_RS ( a, b )
165  #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b )  #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_RL ( a, b )
166  c#define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_R4 ( a, b )  cph(
167  c#define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_R8 ( a, b )  cph Needed for some backward compatibility with broken packages
168    #define _EXCH_XY_R4(a,b) CALL EXCH_XY_RS ( a, b )
169    #define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b )
170    #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RS ( a, b )
171    #define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b )
172    cph)
173    
174  C--   Control use of JAM routines for Artic network (no longer supported)  C--   Control use of JAM routines for Artic network (no longer supported)
175  C     These invoke optimized versions of "exchange" and "sum" that  C     These invoke optimized versions of "exchange" and "sum" that
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22