/[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.13 by cnh, Tue Nov 8 15:53:41 2005 UTC revision 1.15 by edhill, Thu Aug 10 17:46:55 2006 UTC
# Line 46  C     USE_C90_THREADING      - Takes dir Line 46  C     USE_C90_THREADING      - Takes dir
46  C                              system F90 compiler.  C                              system F90 compiler.
47  #ifdef TARGET_SUN  #ifdef TARGET_SUN
48  #define USE_SOLARIS_THREADING  #define USE_SOLARIS_THREADING
49    #define USING_THREADS
50  #endif  #endif
51    
52  #ifdef TARGET_DEC  #ifdef TARGET_DEC
53  #define USE_KAP_THREADING  #define USE_KAP_THREADING
54    #define USING_THREADS
55  #endif  #endif
56    
57  #ifdef TARGET_SGI  #ifdef TARGET_SGI
58  #define USE_IRIX_THREADING  #define USE_IRIX_THREADING
59    #define USING_THREADS
60  #endif  #endif
61    
62  #ifdef TARGET_HP  #ifdef TARGET_HP
63  #define USE_EXEMPLAR_THREADING  #define USE_EXEMPLAR_THREADING
64    #define USING_THREADS
65  #endif  #endif
66    
67  #ifdef TARGET_CRAY_VECTOR  #ifdef TARGET_CRAY_VECTOR
68  #define USE_C90_THREADING  #define USE_C90_THREADING
69    #define USING_THREADS
70    #endif
71    
72    #ifdef USE_OMP_THREADING
73    #define USING_THREADS
74  #endif  #endif
75    
76  C--   Define the mapping for the _BARRIER macro  C--   Define the mapping for the _BARRIER macro
# Line 127  C     performance. Line 136  C     performance.
136  #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b )  #define _EXCH_XYZ_R4(a,b) CALL EXCH_XYZ_RL ( a, b )
137    
138  #define _RL Real*8  #define _RL Real*8
139    #define RL_IS_REAL8
140  #define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b )  #define _EXCH_XY_R8(a,b) CALL EXCH_XY_RL ( a, b )
141  #define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b )  #define _EXCH_XYZ_R8(a,b) CALL EXCH_XYZ_RL ( a, b )
142  #define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )  #define _GLOBAL_SUM_R8(a,b) CALL GLOBAL_SUM_R8 ( a, b )
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22