/[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.13 by adcroft, Tue Mar 14 16:16:01 2000 UTC revision 1.14 by adcroft, Wed Apr 5 15:23:20 2000 UTC
# Line 44  C     safe, on Sun it is not possible - Line 44  C     safe, on Sun it is not possible -
44  C     undef this option.  C     undef this option.
45  #undef  FMTFTN_IO_THREADSAFE  #undef  FMTFTN_IO_THREADSAFE
46    
 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  
 #define 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 do not 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  
   
47  C--   Control MPI based parallel processing  C--   Control MPI based parallel processing
48  #undef  ALLOW_USE_MPI  #undef  ALLOW_USE_MPI
49  #undef  ALWAYS_USE_MPI  #undef  ALWAYS_USE_MPI
# Line 116  C     These invoke optimized versions of Line 63  C     These invoke optimized versions of
63  C     utilize the programmable aspect of Artic cards.  C     utilize the programmable aspect of Artic cards.
64  #undef  LETS_MAKE_JAM  #undef  LETS_MAKE_JAM
65  #undef  JAM_WITH_TWO_PROCS_PER_NODE  #undef  JAM_WITH_TWO_PROCS_PER_NODE
 #ifdef LETS_MAKE_JAM  
 #define _JAMEXT _jam  
 #else  
 #define _JAMEXT  
 #endif  
66    
67  C--   Control storage of floating point operands  C--   Control storage of floating point operands
68  C     On many systems it improves performance only to use  C     On many systems it improves performance only to use
# Line 132  C     set size. However, on vector CRAY Line 74  C     set size. However, on vector CRAY
74  C     performance.  C     performance.
75  #define REAL4_IS_SLOW  #define REAL4_IS_SLOW
76    
 #ifdef REAL4_IS_SLOW  
 #define real Real*8  
 #define REAL Real*8  
 #define _RS  Real*8  
 #define _RL  Real*8  
 #define RS_IS_REAL8  
 #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)    CALL GLOBAL_SUM_R8( a, b )  
 #define _GLOBAL_MAX_R4(a,b)    CALL GLOBAL_MAX_R8( a, b )  
 #endif  
   
 #ifndef REAL4_IS_SLOW  
 #define real Real*4  
 #define REAL Real*8  
 #define _RS  Real*4  
 #define _RL  Real*8  
 #define RS_IS_REAL4  
 #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)    CALL GLOBAL_SUM_R4( a, b )  
 #define _GLOBAL_MAX_R4(a,b)    CALL GLOBAL_MAX_R4( a, b )  
 #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)    CALL GLOBAL_SUM_R8( a, b )  
 #define _GLOBAL_MAX_R8(a,b)    CALL GLOBAL_MAX_R8( a, b )  
   
77  C--   Control use of "double" precision constants.  C--   Control use of "double" precision constants.
78  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
79  #define D0 d0  #define D0 d0
 #ifdef REAL_D0_IS_16BYTES  
 #define D0  
 #endif  
80    
81  C--   Control XY periodicity in processor to grid mappings  C--   Control XY periodicity in processor to grid mappings
82  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
# Line 178  C           filled in some way. Line 88  C           filled in some way.
88  #define CAN_PREVENT_X_PERIODICITY  #define CAN_PREVENT_X_PERIODICITY
89  #define CAN_PREVENT_Y_PERIODICITY  #define CAN_PREVENT_Y_PERIODICITY
90    
 C--   Substitue for 1.D variables  
 C     Sun compilers do not 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  
 #define _F64( a ) a  
 #endif  
 #ifndef REAL_D0_IS_16BYTES  
 #define _d D  
 #define _F64( a ) DFLOAT( a )  
 #endif  
   
91  #endif /* _CPP_EEOPTIONS_H_ */  #endif /* _CPP_EEOPTIONS_H_ */
92    
93    #include "CPP_EEMACROS.h"
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22