advance_FPeqn_vars Subroutine

  1. korc_ppusher.f90
  2. korc_ppusher
  3. advance_FPeqn_vars

public subroutine advance_FPeqn_vars(params, Y_R, Y_PHI, Y_Z, V_PLL, V_MU, flag_cache, m_cache, F, P, PSIp)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(inout) :: params

Core KORC simulation parameters.
real(kind=rp), intent(inout), DIMENSION(8):: Y_R
real(kind=rp), intent(inout), DIMENSION(8):: Y_PHI
real(kind=rp), intent(inout), DIMENSION(8):: Y_Z
real(kind=rp), intent(inout), DIMENSION(8):: V_PLL
real(kind=rp), intent(inout), DIMENSION(8):: V_MU
integer(kind=is), intent(inout), DIMENSION(8):: flag_cache
real(kind=rp), intent(in) :: m_cache
type(FIELDS), intent(in) :: F
type(PROFILES), intent(in) :: P
real(kind=rp), intent(inout), DIMENSION(8):: PSIp

Contents

Source Code

advance_FPeqn_vars

Source Code

  subroutine advance_FPeqn_vars(params,Y_R,Y_PHI,Y_Z,V_PLL,V_MU,flag_cache, &
       m_cache,F,P,PSIp)

    TYPE(PROFILES), INTENT(IN)                                 :: P
    TYPE(FIELDS), INTENT(IN)                                   :: F
    TYPE(KORC_PARAMS), INTENT(INOUT)                              :: params
    !! Core KORC simulation parameters.
    INTEGER(ip)                                                    :: tt
    !! time iterator.
    REAL(rp),DIMENSION(8), INTENT(INOUT)  :: Y_R,Y_PHI,Y_Z
    REAL(rp),DIMENSION(8), INTENT(INOUT)  :: V_PLL,V_MU,PSIp
    REAL(rp),DIMENSION(8)  :: E_PHI
    INTEGER(is),DIMENSION(8), INTENT(INOUT)  :: flag_cache
    REAL(rp),intent(in) :: m_cache
    REAL(rp),DIMENSION(8) :: ne

    do tt=1_ip,params%t_skip
       
       call include_CoulombCollisions_GC_p(tt,params,Y_R,Y_PHI,Y_Z, &
            V_PLL,V_MU,m_cache,flag_cache,F,P,E_PHI,ne,PSIp)

!       write(6,'("Collision Loop in FP")')
       
    end do


    

  end subroutine advance_FPeqn_vars