--- MITgcm/eesupp/inc/CPP_EEOPTIONS.h 1998/04/22 19:15:30 1.1 +++ MITgcm/eesupp/inc/CPP_EEOPTIONS.h 1998/09/29 18:50:55 1.9 @@ -1,4 +1,4 @@ -C $Id: CPP_EEOPTIONS.h,v 1.1 1998/04/22 19:15:30 cnh Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/eesupp/inc/CPP_EEOPTIONS.h,v 1.9 1998/09/29 18:50:55 cnh Exp $ C C /==========================================================\ C | CPP_EEOPTIONS.h | @@ -23,6 +23,9 @@ C | options set at compile time. | C \==========================================================/ +#ifndef _CPP_EEOPTIONS_H_ +#define _CPP_EEOPTIONS_H_ + C In general the following convention applies: C ALLOW - indicates an feature will be included but it may C CAN have a run-time flag to allow it to be switched @@ -123,6 +126,7 @@ #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,c) CALL GLOBAL_SUM_R8( a, b , c) @@ -134,6 +138,7 @@ #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,c) CALL GLOBAL_SUM_R4( a, b , c) @@ -168,7 +173,11 @@ 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 + +#endif /* _CPP_EEOPTIONS_H_ */