SUMPLAT Subroutine

public subroutine SUMPLAT(KDGL, KPROC, KPROCA, KMYSETA, LDSPLIT, LDEQ_REGIONS, KFRSTLAT, KLSTLAT, KFRSTLOFF, KPTRLAT, KPTRFRSTLAT, KPTRLSTLAT, KPTRFLOFF, PWEIGHT, LDWEIGHTED_DISTR, PMEDIAP, KPROCAGP, KMEDIAP, KRESTM, LDSPLITLAT, KMYPROC, KLOEN)

*** *SUMPLAT * - Initialize gridpoint distrbution in N-S direction

• Interface. ---------- CALL *SUMPLAT *

  1. CODE NOT DEPENDING ON 'LELAM': COMPUTATION OF KFRSTLAT TO LDSPLITLAT. ---------------------------------------------

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=JPIM),	intent(in)			::	KDGL
integer(kind=JPIM),	intent(in)			::	KPROC
integer(kind=JPIM),	intent(in)			::	KPROCA
integer(kind=JPIM),	intent(in)			::	KMYSETA
logical,	intent(in)			::	LDSPLIT
logical,	intent(in)			::	LDEQ_REGIONS
integer(kind=JPIM),	intent(out)			::	KFRSTLAT(:)
integer(kind=JPIM),	intent(out)			::	KLSTLAT(:)
integer(kind=JPIM),	intent(out)			::	KFRSTLOFF
integer(kind=JPIM),	intent(out)			::	KPTRLAT(:)
integer(kind=JPIM),	intent(out)			::	KPTRFRSTLAT(:)
integer(kind=JPIM),	intent(out)			::	KPTRLSTLAT(:)
integer(kind=JPIM),	intent(out)			::	KPTRFLOFF
real(kind=JPRD),	intent(in)			::	PWEIGHT(:)
logical,	intent(inout)			::	LDWEIGHTED_DISTR
real(kind=JPRD),	intent(out)			::	PMEDIAP
integer(kind=JPIM),	intent(out)			::	KPROCAGP(KPROCA)
integer(kind=JPIM),	intent(out)			::	KMEDIAP
integer(kind=JPIM),	intent(out)			::	KRESTM
logical,	intent(out)			::	LDSPLITLAT(:)
integer(kind=JPIM),	intent(in)			::	KMYPROC
integer(kind=JPIM),	intent(in)			::	KLOEN(KDGL)