anchor.diff:  
           end do
   
  -        call deallocate_p2p_comms
  +        call deallocate_p2p_comms(md%p2p)
   
       end subroutine
   
  
positive.code:         type(domain_type), allocatable :: domain_metadata(:)
              !! If we split domains in parallel (COARRAYS), then
              !! this will hold the 'initial, unallocated' domains
  
          real(force_double), allocatable :: volume_initial(:), volume(:)
              !! Domain volume tracking
  
negative.code: 
  #if defined(COARRAY_USE_MPI_FOR_INTENSIVE_COMMS)
  #ifdef REALFLOAT
      integer, parameter :: mympi_dp = MPI_REAL
  #else
      integer, parameter :: mympi_dp = MPI_DOUBLE_PRECISION
  #endif
  #endif
  
  