/[MITgcm]/MITgcm_contrib/high_res_cube/code-mods/CPP_EEMACROS.h
ViewVC logotype

Diff of /MITgcm_contrib/high_res_cube/code-mods/CPP_EEMACROS.h

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

revision 1.1.1.1 by cnh, Tue Nov 11 18:08:07 2003 UTC revision 1.2 by dimitri, Sat Dec 6 22:04:20 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 EXCH2_XY_RL ( a, b )  #define _EXCH_XY_R4(a,b) CALL EXCH2_XY_RL ( a, b )
109  #define _EXCH_XYZ_R4(a,b) CALL EXCH2_XYZ_RL ( a, b )  #define _EXCH_XYZ_R4(a,b) CALL EXCH2_XYZ_RL ( a, b )
# Line 111  C     performance. Line 113  C     performance.
113  #define _EXCH_XYZ_R8(a,b) CALL EXCH2_XYZ_RL ( a, b )  #define _EXCH_XYZ_R8(a,b) CALL EXCH2_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 EXCH2_XY_RL ( a, b )  #define _EXCH_XY_RS(a,b) CALL EXCH2_XY_RL ( a, b )
119  #define _EXCH_XYZ_RS(a,b) CALL EXCH2_XYZ_RL ( a, b )  #define _EXCH_XYZ_RS(a,b) CALL EXCH2_XYZ_RL ( a, b )
# Line 145  C     Sun compilers do not use 8-byte pr Line 148  C     Sun compilers do not use 8-byte pr
148  C     unless .Dnn is specified. CRAY vector machines use 16-byte  C     unless .Dnn is specified. CRAY vector machines use 16-byte
149  C     precision when they see .Dnn which runs very slowly!  C     precision when they see .Dnn which runs very slowly!
150  #ifdef REAL_D0_IS_16BYTES  #ifdef REAL_D0_IS_16BYTES
151  #define _d  #define _d E
152  #define _F64( a ) a  #define _F64( a ) a
153  #endif  #endif
154  #ifndef REAL_D0_IS_16BYTES  #ifndef REAL_D0_IS_16BYTES
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22