anchor.diff:    logical, dimension(ndims) :: periods
   
     ! MPI messages
  -  integer, parameter :: my_tag = 9999
  +  integer, parameter :: my_tagl = 9999
  +  integer, parameter :: my_tagr = 9998
     integer, dimension(4) :: req
     integer, dimension(MPI_STATUS_SIZE, 4) :: status
   
  
positive.code: 
       call mpi_reduce(lcount, ncount, 1, MPI_INTEGER, MPI_SUM, 0, comm)
  
       if (rank == 0) then
          write (unit = *, fmt = '(a,i3,i3)') "Step, count: ", n, ncount 
          write (unit = *, fmt = *)
       end if
  
       ! swap time level pointers
  
negative.code: 
    integer, parameter :: imtot = 16
    integer, parameter :: jmtot = 16
    integer, parameter :: nsteps = 12
  
    integer :: im, jm
    integer :: imp1, jmp1
    integer :: i, j
    integer :: n
    integer :: nc, np, tmp
    integer :: live, lcount, ncount
  
  