FIELD_SPLIT Subroutine

public subroutine FIELD_SPLIT(KBLK, KF_GP, KKF_UV_G, KVSETUV, KVSETSC, KSTUV_G, KENUV_G, KF_UV_G, KSTSC_G, KENSC_G, KF_SCALARS_G, KSTUV, KENUV, KF_UV, KSTSC, KENSC, KF_SCALARS)

Uses

  • proc~~field_split~~UsesGraph proc~field_split FIELD_SPLIT PARKIND1 PARKIND1 proc~field_split->PARKIND1 module~tpm_distr TPM_DISTR proc~field_split->module~tpm_distr module~tpm_gen~2 TPM_GEN proc~field_split->module~tpm_gen~2 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~parkind_ectrans PARKIND_ECTRANS module~tpm_gen~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1

*** FIELD_SPLIT - Split fields

  • Interface. ---------- CALL FIELD_SPLIT(...)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KBLK
integer(kind=JPIM), intent(in) :: KF_GP
integer(kind=JPIM), intent(in) :: KKF_UV_G
integer(kind=JPIM), intent(in) :: KVSETUV(:)
integer(kind=JPIM), intent(in) :: KVSETSC(:)
integer(kind=JPIM), intent(out) :: KSTUV_G
integer(kind=JPIM), intent(out) :: KENUV_G
integer(kind=JPIM), intent(out) :: KF_UV_G
integer(kind=JPIM), intent(out) :: KSTSC_G
integer(kind=JPIM), intent(out) :: KENSC_G
integer(kind=JPIM), intent(out) :: KF_SCALARS_G
integer(kind=JPIM), intent(out) :: KSTUV
integer(kind=JPIM), intent(out) :: KENUV
integer(kind=JPIM), intent(out) :: KF_UV
integer(kind=JPIM), intent(out) :: KSTSC
integer(kind=JPIM), intent(out) :: KENSC
integer(kind=JPIM), intent(out) :: KF_SCALARS

Called by

proc~~field_split~~CalledByGraph proc~field_split FIELD_SPLIT proc~dir_trans_ctlad DIR_TRANS_CTLAD proc~dir_trans_ctlad->proc~field_split proc~dir_trans_ctl~2 DIR_TRANS_CTL proc~dir_trans_ctl~2->proc~field_split proc~inv_trans_ctlad INV_TRANS_CTLAD proc~inv_trans_ctlad->proc~field_split proc~inv_trans_ctl~2 INV_TRANS_CTL proc~inv_trans_ctl~2->proc~field_split proc~dir_transad~2 DIR_TRANSAD proc~dir_transad~2->proc~dir_trans_ctlad proc~inv_transad~2 INV_TRANSAD proc~inv_transad~2->proc~inv_trans_ctlad