fix #50 - rm CAF preprocessor macro

Author: rouson

README.md

@@ -59,7 +59,7 @@ Once installed, use the compiler wrappers `caf` and `cafrun` to build and execut
 in parallel, respectively:
 
 ```
-fpm build --compiler caf --flag "-cpp -DCAF -O3 -ffast-math"
+fpm build --compiler caf --flag "-cpp -O3 -ffast-math"
 ```
 
 #### Testing with fpm

src/mod_layer_submodule.f90

@@ -56,19 +56,15 @@ module subroutine db_co_sum(db)
     type(array1d), allocatable, intent(in out) :: db(:)
     integer(ik) :: n
     do n = 2, size(db)
-#ifdef CAF
       call co_sum(db(n) % array)
-#endif
     end do
   end subroutine db_co_sum
 
   module subroutine dw_co_sum(dw)
     type(array2d), allocatable, intent(in out) :: dw(:)
     integer(ik) :: n
     do n = 1, size(dw) - 1
-#ifdef CAF
       call co_sum(dw(n) % array)
-#endif
     end do
   end subroutine dw_co_sum
 

src/mod_network_submodule.f90

@@ -190,10 +190,8 @@ module subroutine sync(self, image)
     integer(ik) :: n
     if (num_images() == 1) return
     layers: do n = 1, size(self % dims)
-#ifdef CAF
       call co_broadcast(self % layers(n) % b, image)
       call co_broadcast(self % layers(n) % w, image)
-#endif
     end do layers
   end subroutine sync