SUMPLAT Subroutine

public subroutine SUMPLAT(KDGL, KPROC, KPROCA, KMYSETA, LDSPLIT, LDEQ_REGIONS, KFRSTLAT, KLSTLAT, KFRSTLOFF, KPTRLAT, KPTRFRSTLAT, KPTRLSTLAT, KPTRFLOFF, KMEDIAP, KRESTM, LDSPLITLAT)

Uses

  • proc~~sumplat~2~~UsesGraph proc~sumplat~2 SUMPLAT module~sumplatbeq_mod SUMPLATBEQ_MOD proc~sumplat~2->module~sumplatbeq_mod module~tpm_distr TPM_DISTR proc~sumplat~2->module~tpm_distr module~parkind1~2 PARKIND1 proc~sumplat~2->module~parkind1~2 module~sumplatb_mod~2 SUMPLATB_MOD proc~sumplat~2->module~sumplatb_mod~2 module~tpm_geometry TPM_GEOMETRY proc~sumplat~2->module~tpm_geometry module~tpm_distr->module~parkind1~2 module~tpm_geometry->module~parkind1~2

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

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

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

$ IF(MYPROC==1)THEN $ WRITE(0,'("SUMPLAT_MOD: JA=",I3," ILAST=",I3," INDIC=",I3)')& $ &JA,ILAST(JA),INDIC(JA) $ ENDIF $IF(MYPROC==1)THEN $ DO JGL=1,KDGL $ WRITE(0,'("SUMPLAT_MOD: JGL=",I3," KPTRLAT=",I3," LDSPLITLAT=",L4)')& $ & JGL,KPTRLAT(JGL),LDSPLITLAT(JGL) $ ENDDO $ DO JA=1,KPROCA $ WRITE(0,'("SUMPLAT_MOD: JA=",I3," KFRSTLAT=",I3," KLSTLAT=",I3,& $ & " KPTRFRSTLAT=",I3," KPTRLSTLAT=",I3)')& $ & JA,KFRSTLAT(JA),KLSTLAT(JA),KPTRFRSTLAT(JA),KPTRLSTLAT(JA) $ ENDDO $ENDIF

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
integer(kind=JPIM), intent(out) :: KMEDIAP
integer(kind=JPIM), intent(out) :: KRESTM
logical, intent(out) :: LDSPLITLAT(:)

Calls

proc~~sumplat~2~~CallsGraph proc~sumplat~2 SUMPLAT proc~sumplatbeq SUMPLATBEQ proc~sumplat~2->proc~sumplatbeq proc~sumplatb SUMPLATB proc~sumplat~2->proc~sumplatb proc~abort_trans ABORT_TRANS proc~sumplatbeq->proc~abort_trans proc~sumplatb->proc~abort_trans proc~abor1 ABOR1 proc~abort_trans->proc~abor1 proc~sdl_srlabort SDL_SRLABORT proc~abort_trans->proc~sdl_srlabort proc~sdl_traceback SDL_TRACEBACK proc~abort_trans->proc~sdl_traceback proc~sdl_srlabort->proc~abor1 proc~sdl_traceback->proc~abor1

Contents