XGCa
|
Data Types | |
module | f0_module |
Macros | |
#define | OMP_ATOMIC !$omp atomic |
Functions/Subroutines | |
subroutine | f_heat_torque_org (grid, sp, t_ev, narea, f0_f, f0_df0g) |
subroutine | get_radial_factor (psi, dz, pi, po, bdi, bdo, over_w, special_mode, ishape, factor) |
sub-subroutine to get radial (psi) factor trapezoid or gaussian More... | |
subroutine | df0g_nan_remove (df0g) |
subroutine | df0g_near_wall_remove (grid, f0_df0g) |
logical function | is_near_wall (grid, inode) |
subroutine | pre_distribute_f0g (sp_type, dist_df0g, dist_n, iw0, niw, f0_n, f0_df0g) |
subroutine | post_distribute_f0g (sp_type, dist_df0g, dist_df0g_delete, f0_df0g) |
subroutine | set_gvid0_pid_from_f0 (nnode) |
subroutine | f_radiation (grid, f0_f, f0_df0g) |
subroutine | power_loss (E_change) |
subroutine | f_shift_from_f_heat_torque |
subroutine | rad_emissivity2 (node, Lz_out, avgZ_out, avgZ2_out, tval_eV_in, eden) |
Calculate emissivity from ADAS data file. More... | |
subroutine | init_radiation |
subroutine | f0_nan_check (str) |
real(kind=8) function | my_sinc (n) |
#define OMP_ATOMIC !$omp atomic |
subroutine df0g_nan_remove | ( | real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout) | df0g | ) |
subroutine df0g_near_wall_remove | ( | type(grid_type), intent(in) | grid, |
real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout) | f0_df0g | ||
) |
subroutine f0_nan_check | ( | character (len=*) | str | ) |
subroutine f_heat_torque_org | ( | type(grid_type), intent(in) | grid, |
type(species_type) | sp, | ||
real(8), dimension(grid%nnode), intent(in) | t_ev, | ||
integer, intent(in) | narea, | ||
real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(in) | f0_f, | ||
real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout) | f0_df0g | ||
) |
subroutine f_radiation | ( | type(grid_type) | grid, |
real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(in) | f0_f, | ||
real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout) | f0_df0g | ||
) |
subroutine f_radiation::f_shift_from_f_heat_torque | ( | ) |
subroutine get_radial_factor | ( | real (8), intent(in) | psi, |
real (8), intent(in) | dz, | ||
real (8), intent(in) | pi, | ||
real (8), intent(in) | po, | ||
real (8), intent(in) | bdi, | ||
real (8), intent(in) | bdo, | ||
real (8), intent(in) | over_w, | ||
integer, intent(in) | special_mode, | ||
integer, intent(in) | ishape, | ||
real (8), intent(out) | factor | ||
) |
sub-subroutine to get radial (psi) factor trapezoid or gaussian
subroutine init_radiation | ( | ) |
logical function is_near_wall | ( | type(grid_type), intent(in) | grid, |
integer | inode | ||
) |
real (kind=8) function my_sinc | ( | real (kind=8), intent(in) | n | ) |
subroutine post_distribute_f0g | ( | integer | sp_type, |
real(8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,0:f0_nmu,2), intent(inout) | dist_df0g, | ||
real(8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,0:f0_nmu), intent(inout) | dist_df0g_delete, | ||
real(8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout) | f0_df0g | ||
) |
subroutine f_radiation::power_loss | ( | real (8) | E_change | ) |
subroutine pre_distribute_f0g | ( | integer | sp_type, |
real(8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,0:f0_nmu,2), intent(inout) | dist_df0g, | ||
real(8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,0:f0_nmu,2), intent(inout) | dist_n, | ||
integer, intent(out) | iw0, | ||
integer, intent(out) | niw, | ||
real(8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(in) | f0_n, | ||
real(8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(in) | f0_df0g | ||
) |
subroutine rad_emissivity2 | ( | integer, intent(in) | node, |
real (kind=8), intent(out) | Lz_out, | ||
real (kind=8), intent(out) | avgZ_out, | ||
real (kind=8), intent(out) | avgZ2_out, | ||
real (kind=8), intent(in) | tval_eV_in, | ||
real (kind=8), intent(in) | eden | ||
) |
Calculate emissivity from ADAS data file.
[in] | node | Node index of the grid, integer |
[in] | tval_eV_in | Input temperature, real(8) |
[in] | eden | Input electron density, real(8) |
[out] | Lz_out | Emissivity, real(8) |
[out] | avgZ_out | Average Z_eff, real(8) |
[out] | avgZ2_out | Average Z_eff^2, real(8) |
subroutine set_gvid0_pid_from_f0 | ( | integer, intent(in) | nnode | ) |