!------------------------------------------------------------------
!-This file contains all routines necessary for the creation of:
!-a) MPI 2-D processor grid
!-INTER-COMMUNICATORS.
!-Created by PD on 6/27/05
!------------------------------------------------------------------

!------------------------------------------------------------------
      subroutine mpi_grid_setup(myid,id1d,id2d)
!------------------------------------------------------------------
      include 'dim.h'
      include 'mpif.h'

!-MPI Variables
      integer :: iproc, hproc, vproc,myid
      integer, dimension(nproch*nprocv,2) :: id2d
      integer, dimension(nproch,nprocv) :: id1d

      do vproc =1,nprocv
        do hproc = 1,nproch
          iproc = (vproc-1)*nproch+(hproc-1)
          id1d(hproc,vproc) = iproc
          id2d(iproc+1,1) = hproc ! x-Cartesian coordinates= 1:nproch
          id2d(iproc+1,2) = vproc ! z-Cartesian coordinates= 1:nprocv
        enddo
      enddo

      end subroutine mpi_grid_setup