shr_reprosum_mod Module

Variables

Type	Visibility	Attributes		Name		Initial
logical,	public		::	shr_reprosum_recompute	=	.false.
real(kind=r8),	public		::	shr_reprosum_reldiffmax	=	-1.0_r8

Functions

public function shr_reprosum_tolExceeded(name, nflds, master, logunit, rel_diff)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	name
integer,	intent(in)			::	nflds
logical,	intent(in)			::	master
integer,	intent(in),	optional		::	logunit
real(kind=r8),	intent(in)			::	rel_diff(2,nflds)

Return Value logical

Subroutines

public subroutine shr_reprosum_setopts(repro_sum_use_ddpdd_in, repro_sum_rel_diff_max_in, repro_sum_recompute_in, repro_sum_master, repro_sum_logunit)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),	optional		::	repro_sum_use_ddpdd_in
real(kind=r8),	intent(in),	optional		::	repro_sum_rel_diff_max_in
logical,	intent(in),	optional		::	repro_sum_recompute_in
logical,	intent(in),	optional		::	repro_sum_master
integer,	intent(in),	optional		::	repro_sum_logunit

public subroutine shr_reprosum_calc(arr, arr_gsum, nsummands, dsummands, nflds, ddpdd_sum, arr_gbl_max, arr_gbl_max_out, arr_max_levels, arr_max_levels_out, gbl_max_nsummands, gbl_max_nsummands_out, gbl_count, repro_sum_validate, repro_sum_stats, rel_diff, commid)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	arr(dsummands,nflds)
real(kind=r8),	intent(out)			::	arr_gsum(nflds)
integer,	intent(in)			::	nsummands
integer,	intent(in)			::	dsummands
integer,	intent(in)			::	nflds
logical,	intent(in),	optional		::	ddpdd_sum
real(kind=r8),	intent(in),	optional		::	arr_gbl_max(nflds)
real(kind=r8),	intent(out),	optional		::	arr_gbl_max_out(nflds)
integer,	intent(in),	optional		::	arr_max_levels(nflds)
integer,	intent(out),	optional		::	arr_max_levels_out(nflds)
integer,	intent(in),	optional		::	gbl_max_nsummands
integer,	intent(out),	optional		::	gbl_max_nsummands_out
integer,	intent(in),	optional		::	gbl_count
logical,	intent(in),	optional		::	repro_sum_validate
integer,	intent(inout),	optional		::	repro_sum_stats(5)
real(kind=r8),	intent(out),	optional		::	rel_diff(2,nflds)
integer,	intent(in),	optional		::	commid