/[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.7 by adcroft, Wed Jul 15 22:05:44 1998 UTC revision 1.17 by adcroft, Fri Mar 9 19:36:39 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4      These lines are here to deliberately cause a compile-time error.
5      If you see these lines in your .F files or the compiler shows them
6      as an error then it means you have not placed your configuration
7      files in the appropriate place.
8      You need to place you own copy of CPP_EEOPTIONS.h in the include
9      path for the model.
10    
11  C  C
12  C     /==========================================================\  C     /==========================================================\
13  C     | CPP_EEOPTIONS.h                                          |  C     | CPP_EEOPTIONS.h                                          |
# Line 44  C     safe, on Sun it is not possible - Line 53  C     safe, on Sun it is not possible -
53  C     undef this option.  C     undef this option.
54  #undef  FMTFTN_IO_THREADSAFE  #undef  FMTFTN_IO_THREADSAFE
55    
 C     Flag used to indicate which flavour of multi-threading  
 C     compiler directives to use. Only set one of these.  
 C     USE_SOLARIS_THREADING  - Takes directives for SUN Workshop  
 C                              compiler.  
 C     USE_KAP_THREADING      - Takes directives for Kuck and  
 C                              Associates multi-threading compiler  
 C                              ( used on Digital platforms ).  
 C     USE_IRIX_THREADING     - Takes directives for SGI MIPS  
 C                              Pro Fortran compiler.  
 C     USE_EXEMPLAR_THREADING - Takes directives for HP SPP series  
 C                              compiler.  
 C     USE_C90_THREADING      - Takes directives for CRAY/SGI C90  
 C                              system F90 compiler.  
 #ifdef TARGET_SUN  
 #define USE_SOLARIS_THREADING  
 #endif  
   
 #ifdef TARGET_DEC  
 #undef  USE_KAP_THREADING  
 #endif  
   
 #ifdef TARGET_SGI  
 #define USE_IRIX_THREADING  
 #endif  
   
 #ifdef TARGET_HP  
 #define USE_EXEMPLAR_THREADING  
 #endif  
   
 #ifdef TARGET_CRAY_VECTOR  
 #define USE_C90_THREADING  
 #endif  
   
 C--   Define the mapping for the _BARRIER macro  
 C     On some systems low-level hardware support can be accessed through  
 C     compiler directives here.  
 #define _BARRIER CALL BARRIER(myThid)  
   
 C--   Define the mapping for the BEGIN_CRIT() and  END_CRIT() macros.  
 C     On some systems we simply execute this section only using the  
 C     master thread i.e. its not really a critical section. We can  
 C     do this because we don't use critical sections in any critical  
 C     sections of our code!  
 #define _BEGIN_CRIT(a) _BEGIN_MASTER(a)  
 #define _END_CRIT(a)   _END_MASTER(a)  
   
 C--   Define the mapping for the BEGIN_MASTER_SECTION() and  
 C     END_MASTER_SECTION() macros. These are generally implemented by  
 C     simply choosing a particular thread to be "the master" and have  
 C     it alone execute the BEGIN_MASTER..., END_MASTER.. sections.  
 #define _BEGIN_MASTER(a)  IF ( a .EQ. 1 ) THEN  
 #define _END_MASTER(a)    ENDIF  
   
56  C--   Control MPI based parallel processing  C--   Control MPI based parallel processing
57  #define ALLOW_USE_MPI  #undef  ALLOW_USE_MPI
58  #define ALWAYS_USE_MPI  #undef  ALWAYS_USE_MPI
59    
60  C--   Control use of communication that might overlap computation.  C--   Control use of communication that might overlap computation.
61  C     Under MPI selects/deselects "non-blocking" sends and receives.  C     Under MPI selects/deselects "non-blocking" sends and receives.
# Line 111  C     Under MPI selects/deselects "block Line 67  C     Under MPI selects/deselects "block
67  #define ALLOW_SYNC_COMMUNICATION  #define ALLOW_SYNC_COMMUNICATION
68  #undef  ALWAYS_USE_SYNC_COMMUNICATION  #undef  ALWAYS_USE_SYNC_COMMUNICATION
69    
70    C--   Control use of JAM routines for Artic network
71    C     These invoke optimized versions of "exchange" and "sum" that
72    C     utilize the programmable aspect of Artic cards.
73    #undef  LETS_MAKE_JAM
74    #undef  JAM_WITH_TWO_PROCS_PER_NODE
75    
76  C--   Control storage of floating point operands  C--   Control storage of floating point operands
77  C     On many systems it improves performance only to use  C     On many systems it improves performance only to use
78  C     8-byte precision for time stepped variables.  C     8-byte precision for time stepped variables.
# Line 119  C     can use 4-byte precision, reducing Line 81  C     can use 4-byte precision, reducing
81  C     boosting performance because of a smaller working  C     boosting performance because of a smaller working
82  C     set size. However, on vector CRAY systems this degrades  C     set size. However, on vector CRAY systems this degrades
83  C     performance.  C     performance.
84  #undef  REAL4_IS_SLOW  #define REAL4_IS_SLOW
   
 #ifdef REAL4_IS_SLOW  
 #define real Real*8  
 #define REAL Real*8  
 #define _RS  Real*8  
 #define _RL  Real*8  
 #define _EXCH_XY_R4(a,b)       CALL EXCH_XY_R8 ( a, b )  
 #define _EXCH_XYZ_R4(a,b)      CALL EXCH_XYZ_R8 ( a, b )  
 #define _GLOBAL_SUM_R4(a,b,c)  CALL GLOBAL_SUM_R8( a, b , c)  
 #define _GLOBAL_MAX_R4(a,b,c)  CALL GLOBAL_MAX_R8( a, b , c)  
 #endif  
   
 #ifndef REAL4_IS_SLOW  
 #define real Real*4  
 #define REAL Real*8  
 #define _RS  Real*4  
 #define _RL  Real*8  
 #define _EXCH_XY_R4(a,b)       CALL EXCH_XY_R4 ( a, b )  
 #define _EXCH_XYZ_R4(a,b)      CALL EXCH_XYZ_R4 ( a, b )  
 #define _GLOBAL_SUM_R4(a,b,c)  CALL GLOBAL_SUM_R4( a, b , c)  
 #define _GLOBAL_MAX_R4(a,b,c)  CALL GLOBAL_MAX_R4( a, b , c)  
 #endif  
   
 #define _EXCH_XY_R8(a,b)       CALL EXCH_XY_R8 ( a, b )  
 #define _EXCH_XYZ_R8(a,b)      CALL EXCH_XYZ_R8 ( a, b )  
 #define _GLOBAL_SUM_R8(a,b,c)  CALL GLOBAL_SUM_R8( a, b , c)  
 #define _GLOBAL_MAX_R8(a,b,c)  CALL GLOBAL_MAX_R8( a, b , c)  
85    
86  C--   Control use of "double" precision constants.  C--   Control use of "double" precision constants.
87  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
88  #define D0 d0  #define D0 d0
 #ifdef REAL_D0_IS_16BYTES  
 #define D0  
 #endif  
89    
90  C--   Control XY periodicity in processor to grid mappings  C--   Control XY periodicity in processor to grid mappings
91  C     Note: Model code does not need to know whether a domain is  C     Note: Model code does not need to know whether a domain is
92  C           periodic because it has overlap regions for every box.  C           periodic because it has overlap regions for every box.
93  C           Model's simply assume that these values have been  C           Model assume that these values have been
94  C           filled in some way.  C           filled in some way.
95  #undef  ALWAYS_PREVENT_X_PERIODICITY  #undef  ALWAYS_PREVENT_X_PERIODICITY
96  #undef  ALWAYS_PREVENT_Y_PERIODICITY  #undef  ALWAYS_PREVENT_Y_PERIODICITY
97  #define CAN_PREVENT_X_PERIODICITY  #define CAN_PREVENT_X_PERIODICITY
98  #define CAN_PREVENT_Y_PERIODICITY  #define CAN_PREVENT_Y_PERIODICITY
99    
 C--   Substitue for 1.D variables  
 C     Sun compilers don't use 8-byte precision for literals  
 C     unless .Dnn is specified. CRAY vector machines use 16-byte  
 C     precision when they see .Dnn which runs very slowly!  
 #ifdef REAL_D0_IS_16BYTES  
 #define _d  
 #endif  
 #ifndef REAL_D0_IS_16BYTES  
 #define _d D  
 #endif  
   
100  #endif /* _CPP_EEOPTIONS_H_ */  #endif /* _CPP_EEOPTIONS_H_ */
101    
102    #include "CPP_EEMACROS.h"
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22