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

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

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

revision 1.5 by adcroft, Mon Jun 22 15:26:24 1998 UTC revision 1.9 by cnh, Tue Sep 29 18:50:55 1998 UTC
# Line 119  C     can use 4-byte precision, reducing Line 119  C     can use 4-byte precision, reducing
119  C     boosting performance because of a smaller working  C     boosting performance because of a smaller working
120  C     set size. However, on vector CRAY systems this degrades  C     set size. However, on vector CRAY systems this degrades
121  C     performance.  C     performance.
122  #undef  REAL4_IS_SLOW  #define REAL4_IS_SLOW
123    
124  #ifdef REAL4_IS_SLOW  #ifdef REAL4_IS_SLOW
125  #define real Real*8  #define real Real*8
126  #define REAL Real*8  #define REAL Real*8
127  #define _RS  Real*8  #define _RS  Real*8
128  #define _RL  Real*8  #define _RL  Real*8
129    #define RS_IS_REAL8
130  #define _EXCH_XY_R4(a,b)       CALL EXCH_XY_R8 ( a, b )  #define _EXCH_XY_R4(a,b)       CALL EXCH_XY_R8 ( a, b )
131  #define _EXCH_XYZ_R4(a,b)      CALL EXCH_XYZ_R8 ( a, b )  #define _EXCH_XYZ_R4(a,b)      CALL EXCH_XYZ_R8 ( a, b )
132  #define _GLOBAL_SUM_R4(a,b,c)  CALL GLOBAL_SUM_R8( a, b , c)  #define _GLOBAL_SUM_R4(a,b,c)  CALL GLOBAL_SUM_R8( a, b , c)
# Line 137  C     performance. Line 138  C     performance.
138  #define REAL Real*8  #define REAL Real*8
139  #define _RS  Real*4  #define _RS  Real*4
140  #define _RL  Real*8  #define _RL  Real*8
141    #define RS_IS_REAL4
142  #define _EXCH_XY_R4(a,b)       CALL EXCH_XY_R4 ( a, b )  #define _EXCH_XY_R4(a,b)       CALL EXCH_XY_R4 ( a, b )
143  #define _EXCH_XYZ_R4(a,b)      CALL EXCH_XYZ_R4 ( a, b )  #define _EXCH_XYZ_R4(a,b)      CALL EXCH_XYZ_R4 ( a, b )
144  #define _GLOBAL_SUM_R4(a,b,c)  CALL GLOBAL_SUM_R4( a, b , c)  #define _GLOBAL_SUM_R4(a,b,c)  CALL GLOBAL_SUM_R4( a, b , c)
# Line 171  C     unless .Dnn is specified. CRAY vec Line 173  C     unless .Dnn is specified. CRAY vec
173  C     precision when they see .Dnn which runs very slowly!  C     precision when they see .Dnn which runs very slowly!
174  #ifdef REAL_D0_IS_16BYTES  #ifdef REAL_D0_IS_16BYTES
175  #define _d  #define _d
176    #define _F64( a ) a
177  #endif  #endif
178  #ifndef REAL_D0_IS_16BYTES  #ifndef REAL_D0_IS_16BYTES
179  #define _d D  #define _d D
180    #define _F64( a ) DFLOAT( a )
181  #endif  #endif
182    
183  #endif /* _CPP_EEOPTIONS_H_ */  #endif /* _CPP_EEOPTIONS_H_ */
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22