/[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.25 by mlosch, Thu Aug 10 14:06:59 2017 UTC revision 1.26 by jmc, Wed Sep 13 22:12:35 2017 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  CBOP  CBOP
5  C     !ROUTINE: CPP_EEMACROS.h  C     !ROUTINE: CPP_EEMACROS.h
6  C     !INTERFACE:  C     !INTERFACE:
7  C     include "CPP_EEMACROS.h "  C     include "CPP_EEMACROS.h"
8  C     !DESCRIPTION:  C     !DESCRIPTION:
9  C     *==========================================================*  C     *==========================================================*
10  C     | CPP_EEMACROS.h  C     | CPP_EEMACROS.h
# Line 129  C  enable to call the corresponding R4 o Line 129  C  enable to call the corresponding R4 o
129  #define _GLOBAL_MAX_RS(a,b) CALL GLOBAL_MAX_R8 ( a, b )  #define _GLOBAL_MAX_RS(a,b) CALL GLOBAL_MAX_R8 ( a, b )
130  #define _MPI_TYPE_RS MPI_DOUBLE_PRECISION  #define _MPI_TYPE_RS MPI_DOUBLE_PRECISION
131  #ifdef USE_OLD_MACROS_R4R8toRSRL  #ifdef USE_OLD_MACROS_R4R8toRSRL
132  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b )  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R8 ( a, b )
133  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b )  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R8 ( a, b )
134  #endif  #endif
135  #else  #else
# Line 140  C  enable to call the corresponding R4 o Line 140  C  enable to call the corresponding R4 o
140  #define _MPI_TYPE_RS MPI_REAL  #define _MPI_TYPE_RS MPI_REAL
141  #ifdef USE_OLD_MACROS_R4R8toRSRL  #ifdef USE_OLD_MACROS_R4R8toRSRL
142  cph Needed for some backward compatibility with broken packages  cph Needed for some backward compatibility with broken packages
143  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b )  #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b )
144  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b )  #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b )
145  #endif  #endif
146  #endif  #endif
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22