anchor.diff:      real(kind=rp), dimension(:)  , allocatable :: sendNW,recvNW,sendNE,recvNE
   
       lev = 1
  +
  +    nz = size(p,dim=3)
   
       flag_sw_s = .false.
       flag_sw_w = .false.
  
positive.code:     integer(kind=ip),dimension(MPI_STATUS_SIZE) :: status
      integer(kind=ip) :: ierr
  
      logical :: flag_sw_s, flag_sw_w
      logical :: flag_se_s, flag_se_e
      logical :: flag_ne_n, flag_ne_e
  
negative.code:   !----------------------------------------------------------------------------
    !- Nonblocking MPI exchanges -!
    !-----------------------------!
    subroutine fill_halo_3D_ijk(nx,ny,p,type)
  
     integer(kind=ip),intent(in) :: nx,ny
      real(kind=rp), dimension(:,:,:), pointer, intent(inout)::p
      character(len=1) :: type
  
  