| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(KORC_PARAMS), | intent(inout) | :: | params | Core KORC simulation parameters. |
||
| real(kind=rp), | intent(in), | DIMENSION(8) | :: | Y_R | ||
| real(kind=rp), | intent(in), | DIMENSION(8) | :: | Y_PHI | ||
| real(kind=rp), | intent(in), | DIMENSION(8) | :: | Y_Z | ||
| real(kind=rp), | intent(inout), | DIMENSION(8) | :: | V_PLL | ||
| real(kind=rp), | intent(inout), | DIMENSION(8) | :: | V_MU | ||
| real(kind=rp), | intent(in) | :: | m_cache | |||
| integer(kind=is), | intent(inout), | DIMENSION(8) | :: | flag_cache | ||
| type(FIELDS), | intent(in) | :: | F | |||
| type(PROFILES), | intent(in) | :: | P | |||
| real(kind=rp), | intent(out), | DIMENSION(8) | :: | E_PHI | ||
| real(kind=rp), | intent(out), | DIMENSION(8) | :: | ne | ||
| real(kind=rp), | intent(inout), | DIMENSION(8) | :: | PSIp |
subroutine advance_FPinterp_vars(params,Y_R,Y_PHI,Y_Z,V_PLL,V_MU, &
m_cache,flag_cache,F,P,E_PHI,ne,PSIp)
TYPE(KORC_PARAMS), INTENT(INOUT) :: params
!! Core KORC simulation parameters.
TYPE(PROFILES), INTENT(IN) :: P
TYPE(FIELDS), INTENT(IN) :: F
INTEGER(ip) :: tt
!! time iterator.
REAL(rp),DIMENSION(8), INTENT(IN) :: Y_R,Y_PHI,Y_Z
REAL(rp),DIMENSION(8), INTENT(INOUT) :: V_PLL,V_MU,PSIp
REAL(rp),DIMENSION(8), INTENT(OUT) :: E_PHI
REAL(rp),intent(in) :: m_cache
INTEGER(is),DIMENSION(8),intent(INOUT) :: flag_cache
REAL(rp),DIMENSION(8), INTENT(OUT) :: ne
! write(6,'("E_PHI_FP: ",E17.10)') E_PHI
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
! write(6,'("V_PLL: ",E17.10)') V_PLL
! write(6,'("V_MU: ",E17.10)') V_MU
end subroutine advance_FPinterp_vars