/[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.19 by heimbach, Mon May 25 04:33:15 2009 UTC revision 1.20 by heimbach, Wed Jun 17 16:39:22 2009 UTC
# Line 135  C  enable to call the corresponding R4 o Line 135  C  enable to call the corresponding R4 o
135  #define _GLOBAL_MAX_RS(a,b) CALL GLOBAL_MAX_R4 ( a, b )  #define _GLOBAL_MAX_RS(a,b) CALL GLOBAL_MAX_R4 ( a, b )
136  #define _MPI_TYPE_RS MPI_REAL  #define _MPI_TYPE_RS MPI_REAL
137  #endif  #endif
138    #ifdef USE_OLD_MACROS_R4R8toRSRL
139    cph Needed for some backward compatibility with broken packages
140    #define _GLOBAL_SUM_R4(a,b) CALL GLOBAL_SUM_R4 ( a, b )
141    #define _GLOBAL_MAX_R4(a,b) CALL GLOBAL_MAX_R4 ( a, b )
142    #endif
143    
144  #define _RL Real*8  #define _RL Real*8
145  #define RL_IS_REAL8  #define RL_IS_REAL8
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22