SUEMPLAT Subroutine

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

Uses

  • proc~~suemplat~~UsesGraph proc~suemplat SUEMPLAT PARKIND1 PARKIND1 proc~suemplat->PARKIND1 YOMHOOK YOMHOOK proc~suemplat->YOMHOOK module~abort_trans_mod ABORT_TRANS_MOD proc~suemplat->module~abort_trans_mod module~suemplatb_mod SUEMPLATB_MOD proc~suemplat->module~suemplatb_mod module~sumplatbeq_mod SUMPLATBEQ_MOD proc~suemplat->module~sumplatbeq_mod module~tpm_gen TPM_GEN proc~suemplat->module~tpm_gen EC_PARKIND EC_PARKIND module~tpm_gen->EC_PARKIND

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

  • Interface. ---------- CALL *SUEMPLAT *

    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=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)
integer(kind=JPIM), intent(in) :: KDGUX

Calls

proc~~suemplat~~CallsGraph proc~suemplat SUEMPLAT dr_hook dr_hook proc~suemplat->dr_hook proc~abort_trans ABORT_TRANS proc~suemplat->proc~abort_trans proc~suemplatb SUEMPLATB proc~suemplat->proc~suemplatb proc~sumplatbeq SUMPLATBEQ proc~suemplat->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~suemplatb->dr_hook proc~suemplatb->proc~abort_trans proc~sumplatbeq->proc~abort_trans

Called by

proc~~suemplat~~CalledByGraph proc~suemplat SUEMPLAT proc~suemp_trans SUEMP_TRANS proc~suemp_trans->proc~suemplat proc~esetup_trans ESETUP_TRANS proc~esetup_trans->proc~suemp_trans