anchor.diff:          real(dp) :: bboxes(2, 2, 4)
   
           ! Clear out any preliminary comms setup
  -        call deallocate_p2p_comms
  +        call deallocate_p2p_comms(md%p2p)
   
           ! 4 domains in this model
           allocate(md%domains(4))
  
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:             ! This lets us 'collapse' multiple sends to a single image,
              ! and is more efficient in a bunch of cases.
              TIMER_START('comms1')
              call communicate_p2p(md%p2p)
              TIMER_STOP('comms1')
          end if
  
  