/[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.16 by cnh, Sun Feb 4 14:38:41 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3  C  C
4  C     /==========================================================\  C     /==========================================================\
5  C     | CPP_EEOPTIONS.h                                          |  C     | CPP_EEOPTIONS.h                                          |
# Line 44  C     safe, on Sun it is not possible - Line 45  C     safe, on Sun it is not possible -
45  C     undef this option.  C     undef this option.
46  #undef  FMTFTN_IO_THREADSAFE  #undef  FMTFTN_IO_THREADSAFE
47    
 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  
   
48  C--   Control MPI based parallel processing  C--   Control MPI based parallel processing
49  #define ALLOW_USE_MPI  #undef  ALLOW_USE_MPI
50  #define ALWAYS_USE_MPI  #undef  ALWAYS_USE_MPI
51    
52  C--   Control use of communication that might overlap computation.  C--   Control use of communication that might overlap computation.
53  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 59  C     Under MPI selects/deselects "block
59  #define ALLOW_SYNC_COMMUNICATION  #define ALLOW_SYNC_COMMUNICATION
60  #undef  ALWAYS_USE_SYNC_COMMUNICATION  #undef  ALWAYS_USE_SYNC_COMMUNICATION
61    
62    C--   Control use of JAM routines for Artic network
63    C     These invoke optimized versions of "exchange" and "sum" that
64    C     utilize the programmable aspect of Artic cards.
65    #undef  LETS_MAKE_JAM
66    #undef  JAM_WITH_TWO_PROCS_PER_NODE
67    
68  C--   Control storage of floating point operands  C--   Control storage of floating point operands
69  C     On many systems it improves performance only to use  C     On many systems it improves performance only to use
70  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 73  C     can use 4-byte precision, reducing
73  C     boosting performance because of a smaller working  C     boosting performance because of a smaller working
74  C     set size. However, on vector CRAY systems this degrades  C     set size. However, on vector CRAY systems this degrades
75  C     performance.  C     performance.
76  #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)  
77    
78  C--   Control use of "double" precision constants.  C--   Control use of "double" precision constants.
79  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
80  #define D0 d0  #define D0 d0
 #ifdef REAL_D0_IS_16BYTES  
 #define D0  
 #endif  
81    
82  C--   Control XY periodicity in processor to grid mappings  C--   Control XY periodicity in processor to grid mappings
83  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
84  C           periodic because it has overlap regions for every box.  C           periodic because it has overlap regions for every box.
85  C           Model's simply assume that these values have been  C           Model assume that these values have been
86  C           filled in some way.  C           filled in some way.
87  #undef  ALWAYS_PREVENT_X_PERIODICITY  #undef  ALWAYS_PREVENT_X_PERIODICITY
88  #undef  ALWAYS_PREVENT_Y_PERIODICITY  #undef  ALWAYS_PREVENT_Y_PERIODICITY
89  #define CAN_PREVENT_X_PERIODICITY  #define CAN_PREVENT_X_PERIODICITY
90  #define CAN_PREVENT_Y_PERIODICITY  #define CAN_PREVENT_Y_PERIODICITY
91    
 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  
   
92  #endif /* _CPP_EEOPTIONS_H_ */  #endif /* _CPP_EEOPTIONS_H_ */
93    
94    #include "CPP_EEMACROS.h"
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22