parallel Module

Uses

- mpi_var
- common_param
- util
- mpi
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Variables

offset_kind whence mpi_err fp0x fp1x status error mpi_sd

Subroutines

check_decomposition start_parallel mpi_write_dp mpi_write_row_dp mpi_write_col_dp mpi_read_col_dp mpi_read_dp mpi_write_part mpi_write_part_col mpi_write_field mpi_write_field_col End_parallel exchange_idata exchange_2d_idata exchange_3d_sp_data exchange_1d_grdata exchange_2d_grdata exchange_3d_grdata exchange_grdata realvec_distribute intvec_distribute sr_idata sr_pdata sr_vidata exchange_pdata exchange_rdata exchange_rdata_int vint_2d_bcast vint_bcast int_bcast all_gather_dpreal allreduce_dpreal allreduce_big_int allreduce_sint allreduce_vint bcast_grdata bcast_realv_sum bcast_int_sum real_bcast local_to_global_grdata exchange_bd_3d_data exchange_bdx_data processor_grid_diag

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	offset_kind	=	mpi_offset_kind
integer,	public,	parameter	::	whence	=	mpi_seek_set
integer,	public		::	mpi_err
real(kind=dp),	public,	allocatable	::	fp0x(:,:,:,:)
real(kind=dp),	public,	allocatable	::	fp1x(:,:,:,:)
integer,	public		::	status(mpi_status_size)
integer,	public		::	error
integer,	public		::	mpi_sd

Subroutines

public subroutine check_decomposition()

Arguments

None

public subroutine start_parallel(ncmp, p_ind, b_ind)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncmp
integer,	intent(in)			::	p_ind
integer,	intent(in)			::	b_ind

public subroutine mpi_write_dp(buf, bufsize, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	buf(:)
integer,	intent(in)			::	bufsize
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_write_row_dp(buf, bufsize, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	buf(:)
integer,	intent(in)			::	bufsize
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_write_col_dp(buf, bufsize, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	buf(:)
integer,	intent(in)			::	bufsize
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_read_col_dp(buf, bufsize, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	buf(:)
integer,	intent(in)			::	bufsize
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_read_dp(buf, bufsize, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	buf(:)
integer,	intent(in)			::	bufsize
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_write_part(buf, bufsize, loc_np, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in)			::	buf(:)
integer,	intent(in)			::	bufsize
integer,	intent(in)			::	loc_np
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_write_part_col(buf, bufsize, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in)			::	buf(:)
integer,	intent(in)			::	bufsize
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_write_field(buf, bufsize, header, header_size, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in)			::	buf(:)
integer,	intent(in)			::	bufsize
integer,	intent(in)			::	header(:)
integer,	intent(in)			::	header_size
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine mpi_write_field_col(buf, bufsize, header, header_size, disp, nchar, fout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in)			::	buf(:)
integer,	intent(in)			::	bufsize
integer,	intent(in)			::	header(:)
integer,	intent(in)			::	header_size
integer(kind=offset_kind),	intent(in)			::	disp
integer,	intent(in)			::	nchar
character(len=nchar),	intent(in)			::	fout

public subroutine End_parallel()

Arguments

None

public subroutine exchange_idata(sr, idat, lenw, ipe, tag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
integer,	intent(inout)			::	idat(:)
integer,	intent(in)			::	lenw
integer,	intent(in)			::	ipe
integer,	intent(in)			::	tag

public subroutine exchange_2d_idata(sr, idat, n1, n2, ipe, tag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
integer,	intent(inout)			::	idat(:,:)
integer,	intent(in)			::	n1
integer,	intent(in)			::	n2
integer,	intent(in)			::	ipe
integer,	intent(in)			::	tag

public subroutine exchange_3d_sp_data(sr, dat0, n1, n2, n3, ipe, tag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
real(kind=sp),	intent(inout)			::	dat0(:,:,:)
integer,	intent(in)			::	n1
integer,	intent(in)			::	n2
integer,	intent(in)			::	n3
integer,	intent(in)			::	ipe
integer,	intent(in)			::	tag

public subroutine exchange_1d_grdata(sr, dat0, lenw, ipe, tag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
real(kind=dp),	intent(inout)			::	dat0(:)
integer,	intent(in)			::	lenw
integer,	intent(in)			::	ipe
integer,	intent(in)			::	tag

public subroutine exchange_2d_grdata(sr, dat0, n1, n2, ipe, tag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
real(kind=dp),	intent(inout)			::	dat0(:,:)
integer,	intent(in)			::	n1
integer,	intent(in)			::	n2
integer,	intent(in)			::	ipe
integer,	intent(in)			::	tag

public subroutine exchange_3d_grdata(sr, dat0, lenw, dir, ipe)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
real(kind=dp),	intent(inout)			::	dat0(:,:,:)
integer,	intent(in)			::	lenw
integer,	intent(in)			::	dir
integer,	intent(in)			::	ipe

public subroutine exchange_grdata(sr, dat0, lenw, dir, ipe)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
real(kind=dp),	intent(inout)			::	dat0(:,:,:,:)
integer,	intent(in)			::	lenw
integer,	intent(in)			::	dir
integer,	intent(in)			::	ipe

public subroutine realvec_distribute(rs, rv, nproc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	rs
real(kind=dp)				::	rv(:)
integer,	intent(in)			::	nproc

public subroutine intvec_distribute(ns, nc, nproc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ns
integer,	intent(inout)			::	nc(:)
integer,	intent(in)			::	nproc

public subroutine sr_idata(ns, nr, dir, side)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ns
integer,	intent(out)			::	nr
integer,	intent(in)			::	dir
integer,	intent(in)			::	side

public subroutine sr_pdata(sdata, rdata, ns, nr, dir, side)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	sdata(:)
real(kind=dp),	intent(out)			::	rdata(:)
integer,	intent(in)			::	ns
integer,	intent(in)			::	nr
integer,	intent(in)			::	dir
integer,	intent(in)			::	side

public subroutine sr_vidata(sidat, ridat, n2, n3, dir, side)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	sidat(n2,n3)
integer,	intent(out)			::	ridat(n2,n3)
integer,	intent(in)			::	n2
integer,	intent(in)			::	n3
integer,	intent(in)			::	dir
integer,	intent(in)			::	side

public subroutine exchange_pdata(sr, pdata, lenw, ipe, tag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	sr
real(kind=sp),	intent(inout)			::	pdata(:)
integer,	intent(in)			::	lenw
integer,	intent(in)			::	ipe
integer,	intent(in)			::	tag

public subroutine exchange_rdata(buff, sr, lenw, ipe, dir, tag)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	buff(:)
logical,	intent(in)			::	sr
integer,	intent(in)			::	lenw
integer,	intent(in)			::	ipe
integer,	intent(in)			::	dir
integer,	intent(in)			::	tag

public subroutine exchange_rdata_int(buff, sr, lenw, ipe, dir, tag)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	buff(:)
logical,	intent(in)			::	sr
integer,	intent(in)			::	lenw
integer,	intent(in)			::	ipe
integer,	intent(in)			::	dir
integer,	intent(in)			::	tag

public subroutine vint_2d_bcast(mydat, n1, n2)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:, :)	::	mydat
integer,	intent(in)			::	n1
integer,	intent(in)			::	n2

public subroutine vint_bcast(mydat, nt)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	mydat(nt)
integer,	intent(in)			::	nt

public subroutine int_bcast(mydat)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	mydat

public subroutine all_gather_dpreal(rv_send, rv_recv, dir, nt)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	rv_send(:)
real(kind=dp),	intent(inout)			::	rv_recv(:)
integer,	intent(in)			::	dir
integer,	intent(in)			::	nt

public subroutine allreduce_dpreal(ib, rv_loc, rv, nt)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ib
real(kind=dp),	intent(in)			::	rv_loc(:)
real(kind=dp),	intent(out)			::	rv(:)
integer,	intent(in)			::	nt

public subroutine allreduce_big_int(n0, n1)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=dp),	intent(in)			::	n0
integer(kind=dp),	intent(out)			::	n1

public subroutine allreduce_sint(ib, dt0, dt_tot)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ib
integer,	intent(in)			::	dt0
integer,	intent(out)			::	dt_tot

public subroutine allreduce_vint(ib, dt0, dt_tot, nt)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ib
integer,	intent(in)			::	dt0(nt)
integer,	intent(out)			::	dt_tot(nt)
integer,	intent(in)			::	nt

public subroutine bcast_grdata(dat0, n1, n2, n3, nc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	dat0(:,:,:,:)
integer,	intent(in)			::	n1
integer,	intent(in)			::	n2
integer,	intent(in)			::	n3
integer,	intent(in)			::	nc

public subroutine bcast_realv_sum(ib, dt_prl, dt_tot, nt)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	ib
real(kind=dp),	intent(in)			::	dt_prl(nt)
real(kind=dp),	intent(out)			::	dt_tot(nt)
integer,	intent(in)			::	nt

public subroutine bcast_int_sum(dt_prl, dt_tot)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	dt_prl
integer,	intent(out)			::	dt_tot

public subroutine real_bcast(dt_tot, ndt)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	dt_tot(ndt)
integer,	intent(in)			::	ndt

public subroutine local_to_global_grdata(buff1, buff2, lenws, ip, dir)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	buff1(:)
real(kind=dp),	intent(out)			::	buff2(:)
integer,	intent(in)			::	lenws
integer,	intent(in)			::	ip
integer,	intent(in)			::	dir

public subroutine exchange_bd_3d_data(buff1, lenws, buff2, lenwr, dir, side)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	buff1(:,:,:)
integer,	intent(in)			::	lenws
real(kind=dp),	intent(out)			::	buff2(:,:,:)
integer,	intent(in)			::	lenwr
integer,	intent(in)			::	dir
integer(kind=hp_int),	intent(in)			::	side

public subroutine exchange_bdx_data(buff1, buff2, lenws, lenwr, dir, side)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	buff1(:)
real(kind=dp),	intent(out)			::	buff2(:)
integer,	intent(in)			::	lenws
integer,	intent(in)			::	lenwr
integer,	intent(in)			::	dir
integer(kind=hp_int),	intent(in)			::	side

public subroutine processor_grid_diag()

Arguments

None