Fixed errors for MacOSx / Apple

Author: hdrake

affinity/affinity.c

@@ -18,6 +18,13 @@
  **********************************************************************/
 #define _GNU_SOURCE
 
+#ifdef MACOS
+
+int get_cpu_affinity(void) { return -1; };
+void set_cpu_affinity( int cpu ) {};
+
+#else
+
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
@@ -58,7 +65,6 @@ int get_cpu_affinity(void)
   return -1;
 }
 
-int get_cpu_affinity_(void) { return get_cpu_affinity(); }      /* Fortran interface */
 
 
 /*
@@ -122,4 +128,7 @@ int set_cpu_affinity(int cpu)
   return 0;
 }
 
-int set_cpu_affinity_(int *cpu) { return set_cpu_affinity(*cpu); } /* Fortran interface */
+#endif
+
+int get_cpu_affinity_(void) { return get_cpu_affinity(); }      /* Fortran interface */
+void set_cpu_affinity_(int *cpu) { return set_cpu_affinity(*cpu); } /* Fortran interface */

mpp/mpp_parameter.F90

@@ -117,7 +117,7 @@ module mpp_parameter_mod
 ! combination with the flag parameter defined above to create a unique identifier for
 ! each Domain+flags combination. Therefore, the value of any flag must not exceed DOMAIN_ID_BASE.
 ! integer(LONG_KIND), parameter :: DOMAIN_ID_BASE=INT( 2**(4*LONG_KIND),KIND=LONG_KIND )
-  integer(LONG_KIND), parameter :: DOMAIN_ID_BASE=Z'0000000100000000' ! Workaround for 64bit init problem
+  integer(LONG_KIND), parameter :: DOMAIN_ID_BASE=INT(Z'0000000100000000') ! Workaround for 64bit init problem
   integer, parameter :: NON_BITWISE_EXACT_SUM=0
   integer, parameter :: BITWISE_EXACT_SUM=1
   integer, parameter :: BITWISE_EFP_SUM=2