Macros | |
#define | XGC1 1 |
Functions/Subroutines | |
subroutine | send_recv_potential (dpot, recvr, sendl, nnode) |
subroutine | get_potential_grad (grid, psn) |
real(kind=8) function | spitzer_res (den, temp, Z) |
Calculates the parallel Spitzer resistivity Currently assumes that eta_para = eta_perp/1.96 (Z=1) More... | |
subroutine | get_dpot_ff (grid, psn, irk) |
subroutine | save_dpot (grid, psn, irk) |
subroutine | get_dpot_ff2 (grid, psn) |
subroutine | mode_selection (nmode, grid, psn, potential_type) |
subroutine | mode_selection_comb (nmode, grid, psn, dpot) |
subroutine | extract_00mode (grid, phi) |
subroutine | smooth_tr_connect (grid, var) |
subroutine | get_potential_grad_epara (grid, psn) |
#define XGC1 1 |
subroutine extract_00mode | ( | type(grid_type) | grid, |
real (kind=8), dimension(grid%nnode,-1:2) | phi | ||
) |
subroutine get_dpot_ff | ( | type(grid_type) | grid, |
type(psn_type) | psn, | ||
integer, intent(in) | irk | ||
) |
subroutine get_dpot_ff2 | ( | type(grid_type) | grid, |
type(psn_type) | psn | ||
) |
subroutine get_potential_grad | ( | type(grid_type) | grid, |
type(psn_type) | psn | ||
) |
subroutine get_potential_grad_epara | ( | type(grid_type) | grid, |
type(psn_type) | psn | ||
) |
subroutine mode_selection | ( | integer, intent(in) | nmode, |
type(grid_type) | grid, | ||
type(psn_type) | psn, | ||
integer, intent(in) | potential_type | ||
) |
subroutine mode_selection_comb | ( | integer, intent(in) | nmode, |
type(grid_type) | grid, | ||
type(psn_type) | psn, | ||
real (kind=8), dimension(grid%nnode), intent(inout) | dpot | ||
) |
subroutine save_dpot | ( | type(grid_type) | grid, |
type(psn_type) | psn, | ||
integer, intent(in) | irk | ||
) |
subroutine send_recv_potential | ( | real (kind=8), dimension(nnode,-1:2) | dpot, |
real (kind=8), dimension(nnode) | recvr, | ||
real (kind=8), dimension(nnode) | sendl, | ||
integer, intent(in) | nnode | ||
) |
subroutine smooth_tr_connect | ( | type(grid_type) | grid, |
real (8), dimension(grid%nnode) | var | ||
) |
real (kind=8) function spitzer_res | ( | real (8), intent(in) | den, |
real (8), dimension(0:ptl_nsp), intent(in) | temp, | ||
real (8), intent(in) | Z | ||
) |
Calculates the parallel Spitzer resistivity Currently assumes that eta_para = eta_perp/1.96 (Z=1)
[in] | den | Density in m^(-3), real(8) |
[in] | temp | Temperatures (ion+electron) in eV, real(8) |
[in] | Z | Ion charge state, real(8) |