/[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.21 by heimbach, Wed Jun 17 23:19:34 2009 UTC revision 1.22 by jmc, Thu Mar 4 22:02:26 2010 UTC
# Line 183  cph Needed for some backward compatibili Line 183  cph Needed for some backward compatibili
183  C--   Control use of JAM routines for Artic network (no longer supported)  C--   Control use of JAM routines for Artic network (no longer supported)
184  C     These invoke optimized versions of "exchange" and "sum" that  C     These invoke optimized versions of "exchange" and "sum" that
185  C     utilize the programmable aspect of Artic cards.  C     utilize the programmable aspect of Artic cards.
186  #ifdef LETS_MAKE_JAM  CXXX No longer supported ; started to remove JAM routines.
187  #define _GLOBAL_SUM_RS(a,b) CALL GLOBAL_SUM_R8_JAM ( a, b)  CXXX #ifdef LETS_MAKE_JAM
188  #define _GLOBAL_SUM_RL(a,b) CALL GLOBAL_SUM_R8_JAM ( a, b )  CXXX #define _GLOBAL_SUM_RS(a,b) CALL GLOBAL_SUM_R8_JAM ( a, b)
189  #define _EXCH_XY_RS(a,b) CALL EXCH_XY_R8_JAM ( a, b )  CXXX #define _GLOBAL_SUM_RL(a,b) CALL GLOBAL_SUM_R8_JAM ( a, b )
190  #define _EXCH_XY_RL(a,b) CALL EXCH_XY_R8_JAM ( a, b )  CXXX #define _EXCH_XY_RS(a,b) CALL EXCH_XY_R8_JAM ( a, b )
191  #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_R8_JAM ( a, b )  CXXX #define _EXCH_XY_RL(a,b) CALL EXCH_XY_R8_JAM ( a, b )
192  #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_R8_JAM ( a, b )  CXXX #define _EXCH_XYZ_RS(a,b) CALL EXCH_XYZ_R8_JAM ( a, b )
193  #endif  CXXX #define _EXCH_XYZ_RL(a,b) CALL EXCH_XYZ_R8_JAM ( a, b )
194    CXXX #endif
195    
196  C--   Control use of "double" precision constants.  C--   Control use of "double" precision constants.
197  C     Use D0 where it means REAL*8 but not where it means REAL*16  C     Use D0 where it means REAL*8 but not where it means REAL*16
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22