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)

Uses

  • proc~~sumplat~~UsesGraph proc~sumplat SUMPLAT module~abort_trans_mod ABORT_TRANS_MOD proc~sumplat->module~abort_trans_mod module~parkind_ectrans PARKIND_ECTRANS proc~sumplat->module~parkind_ectrans module~sumplatb_mod~2 SUMPLATB_MOD proc~sumplat->module~sumplatb_mod~2 module~sumplatbeq_mod SUMPLATBEQ_MOD proc~sumplat->module~sumplatbeq_mod module~tpm_distr TPM_DISTR proc~sumplat->module~tpm_distr module~tpm_geometry~2 TPM_GEOMETRY proc~sumplat->module~tpm_geometry~2 PARKIND1 PARKIND1 module~parkind_ectrans->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_geometry~2->module~parkind_ectrans

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

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

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

Arguments

Type IntentOptional 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=JPRBT), intent(in) :: PWEIGHT(:)
logical, intent(inout) :: LDWEIGHTED_DISTR
real(kind=JPRBT), 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)

Calls

proc~~sumplat~~CallsGraph proc~sumplat SUMPLAT proc~abort_trans ABORT_TRANS proc~sumplat->proc~abort_trans proc~sumplatb SUMPLATB proc~sumplat->proc~sumplatb proc~sumplatbeq SUMPLATBEQ proc~sumplat->proc~sumplatbeq mpl_abort mpl_abort proc~abort_trans->mpl_abort sdl_srlabort sdl_srlabort proc~abort_trans->sdl_srlabort sdl_traceback sdl_traceback proc~abort_trans->sdl_traceback proc~sumplatbeq->proc~abort_trans

Called by

proc~~sumplat~~CalledByGraph proc~sumplat SUMPLAT proc~sump_trans SUMP_TRANS proc~sump_trans->proc~sumplat proc~sump_trans~2 SUMP_TRANS proc~sump_trans~2->proc~sumplat proc~setup_trans SETUP_TRANS proc~setup_trans->proc~sump_trans proc~setup_trans~2 SETUP_TRANS proc~setup_trans~2->proc~sump_trans