basic_mpi_mod.f90
cd1286e2d410improved_sugama

basic_mpi_mod.f90
View Options

			module basic_mpi
			! Basic MPI module

			use prec_const

			IMPLICIT NONE

			PUBLIC

			! MPI handles and variables
			INTEGER :: ierr ! flag for MPI error
			INTEGER :: nprocs ! number of processors
			INTEGER :: me =0 ! Rank of processor
			INTEGER :: meCe =0 ! Electron Collision Processor rank
			INTEGER :: meCi =0 ! Ion Collision Processor rank
			INTEGER :: meCaa =0 ! Self Collision Processor rank
			INTEGER :: meCeiT = 0
			INTEGER :: meCeiF = 0
			INTEGER :: meCieT = 0
			INTEGER :: meCieF = 0
			INTEGER :: meCee = 0
			INTEGER :: meCii =0

			CHARACTER(len=3) :: me_str

			! number of MPI proc in the enegry component
			INTEGER :: Nprocs_rows_ii

			! GK ii Cartesian topology
			INTEGER :: mycoords_ii(2)

			! MPI GROUPS
			INTEGER, DIMENSION(:),ALLOCATABLE :: ranks_e,ranks_i,ranks_self
			INTEGER :: grp_e,grp_i,grp_self
			INTEGER :: grp_world
			! Group comm
			INTEGER :: comm_e,comm_i,comm_self
			! Cartesian comm
			INTEGER :: comm_cart_e,comm_cart_i,comm_cart_self

			! GRROUP RANK
			INTEGER :: me_e,me_i,me_self
			LOGICAL :: is_e = .false.
			LOGICAL :: is_i = .false.
			LOGICAL :: is_self = .false.
			!

			INTEGER :: Cenproc
			INTEGER :: Cinproc
			INTEGER :: Caanproc


			contains

			! subroutine mpi_input
			! ! mpi input data
			! ! note: only used for GK Coulomb collision operator
			! implicit none
			! INTEGER :: lu_in = 90 ! File duplicated from STDIN
			! !
			! NAMELIST/MPI/ MPI_balanced
			! !
			! ! READ MPI INPUT data
			! IF( me .ne. 0 ) GOTO 110
			! READ(lu_in,mpi)
			! WRITE(*,mpi)
			! 110 CONTINUE
			! !
			! CALL mpi_bcast(MPI_balanced,1, MPI_LOGICAL,0,MPI_COMM_WORLD,ierr)
			! !
			! !
			! end subroutine mpi_input

			end module basic_mpi