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~2~~UsesGraph proc~field_split~2 FIELD_SPLIT PARKIND1 PARKIND1 proc~field_split~2->PARKIND1 module~tpm_distr TPM_DISTR proc~field_split~2->module~tpm_distr module~tpm_gen~2 TPM_GEN proc~field_split~2->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