#include "adios_macro.h"
Data Types | |
module | f0_module |
Macros | |
#define | OMP_ATOMIC !$omp atomic |
Functions/Subroutines | |
subroutine | add_f0_analytic (stype) |
subroutine | add_f0_analytic_elec (grid, psn) |
subroutine | f0_remove_negative (f0) |
subroutine | f_heat_torque_org (grid, sp, t_ev, narea) |
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) |
logical function | is_near_wall (grid, inode) |
subroutine | pre_distribute_f0g (sp_type, dist_df0g, dist_n, iw0, niw) |
subroutine | post_distribute_f0g (sp_type, dist_df0g, dist_df0g_delete) |
subroutine | set_gvid0_pid_from_f0 (nnode) |
subroutine | symmetric_f (f, flag) |
subroutine | f_fourier (f, grid, op_mode, f_3d_re, f_3d_im) |
Reduces the input function to the toroidal average. More... | |
subroutine | f_fourier_restore_wrap (f, f_3d_re, f_3d_im) |
subroutine | f_fourier_restore (f, f_3d_re, f_3d_im) |
Restores the 3D Fourier components that were removed from f with the subroutine f_fourier. More... | |
subroutine | f_radiation (grid) |
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 add_f0_analytic | ( | integer, intent(in) | stype | ) |
subroutine add_f0_analytic_elec | ( | type(grid_type) | grid, |
type(psn_type) | psn | ||
) |
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 | ) |
subroutine f0_nan_check | ( | character (len=*) | str | ) |
subroutine f0_remove_negative | ( | real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout) | f0 | ) |
subroutine f_fourier | ( | real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptl_isp:ptl_nsp), intent(inout) | f, |
type(grid_type), intent(in) | grid, | ||
integer, intent(in) | op_mode, | ||
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptb_3db_num_ntor,ptl_isp:ptl_nsp), intent(out), optional | f_3d_re, | ||
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptb_3db_num_ntor,ptl_isp:ptl_nsp), intent(out), optional | f_3d_im | ||
) |
Reduces the input function to the toroidal average.
[in,out] | f | Input distribution function and filtered output |
[in] | grid | Grid data |
[out] | f_3d_re | Optional output variable for separate Fourier modes |
[out] | f_3d_im | Optional output variable for separate Fourier modes |
subroutine f_fourier_restore | ( | real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptl_isp:ptl_nsp), intent(inout) | f, |
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptb_3db_num_ntor,ptl_isp:ptl_nsp), intent(in) | f_3d_re, | ||
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptb_3db_num_ntor,ptl_isp:ptl_nsp), intent(in) | f_3d_im | ||
) |
Restores the 3D Fourier components that were removed from f with the subroutine f_fourier.
[in,out] | f | Input distribution function and filtered output |
[out] | f_3d_re | Input variable for separate Fourier modes |
[out] | f_3d_re | Input variable for separate Fourier modes |
subroutine f_fourier_restore_wrap | ( | real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptl_isp:ptl_nsp), intent(inout) | f, |
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptb_3db_num_ntor,ptl_isp:ptl_nsp), intent(in) | f_3d_re, | ||
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptb_3db_num_ntor,ptl_isp:ptl_nsp), intent(in) | f_3d_im | ||
) |
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 | ||
) |
subroutine f_radiation | ( | type(grid_type) | grid | ) |
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 | ||
) |
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 | ||
) |
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 | ) |
subroutine symmetric_f | ( | real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2,f0_imu1:f0_imu2,ptl_isp:ptl_nsp), intent(inout) | f, |
integer, intent(in) | flag | ||
) |