!***************************************************************
! Name  : spect_mpi
! Author:  Bin He     *ARMA/MSC
! Date  :  Sep. 2005
! Purpose: Spectral variables related MPI parallelization.
!
!***************************************************************

MODULE spect_mpi 2
   INTEGER :: nlaloc  ! size of local array "SP" 
   INTEGER ,ALLOCATABLE,DIMENSION(:) :: nindloc
   INTEGER ,ALLOCATABLE,DIMENSION(:) :: disploc0 ! local array for maping local idex to global index without imaginary part.  
   INTEGER ,ALLOCATABLE,DIMENSION(:) :: disploc1 ! local array for maping local idex to global index with imaginary part.   
   
!! Declair MPI derived data type used in the parallelization of spectral transformation. 
   INTEGER,ALLOCATABLE,DIMENSION(:) :: pgdtype_glby,pgdtype_loc  
   INTEGER,ALLOCATABLE,DIMENSION(:) :: pgdtype_glbx 
!! 
END MODULE spect_mpi