#include "adios_macro.h"
Data Types | |
module | f0_module |
Macros | |
#define | OMP_ATOMIC !$omp atomic |
Functions/Subroutines | |
subroutine | update_f0_sp (grid, sp, alpha_in, psn) |
subroutine | send_receive_mu_boundary (array, send1, send2) |
subroutine | add_f0_analytic (stype) |
subroutine | add_f0_analytic_elec (grid, psn) |
subroutine | f_source_allocate |
Allocates arrays used in f_source: f0_f, f0_df0g, f0_n, f0_n_re, f0_n_im, f0_df0g3, df0g_tmp. More... | |
subroutine | f0_remove_negative (f0) |
subroutine | f_heat_torque_org (grid, sp, t_ev, narea) |
subroutine | f_heat_torque_maxwellian (grid, sp, t_ev, narea) |
subroutine | df0g_nan_remove (df0g) |
subroutine | df0g_near_wall_remove (grid) |
logical function | is_near_wall (grid, inode) |
subroutine | update_w_ion (grid, sp, iflag) |
subroutine | update_w_elec (grid, psn, sp, iflag) |
subroutine | distribute_f0g (grid, sp) |
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 (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 distribute_f0g | ( | type(grid_type), intent(in) | grid, |
type(species_type), intent(inout) | sp | ||
) |
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_heat_torque_maxwellian | ( | type(grid_type), intent(in) | grid, |
type(species_type) | sp, | ||
real(8), dimension(grid%nnode), intent(in) | t_ev, | ||
integer | narea | ||
) |
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 f_source_allocate | ( | ) |
Allocates arrays used in f_source: f0_f, f0_df0g, f0_n, f0_n_re, f0_n_im, f0_df0g3, df0g_tmp.
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 f_radiation::power_loss | ( | real (8) | E_change | ) |
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 update_f0_sp::send_receive_mu_boundary | ( | real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2) | array, |
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2), intent(in) | send1, | ||
real (8), dimension(-f0_nvp:f0_nvp,f0_inode1:f0_inode2), intent(in) | send2 | ||
) |
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 | ||
) |
subroutine update_f0_sp | ( | type(grid_type), intent(in) | grid, |
type(species_type) | sp, | ||
real (8), intent(in) | alpha_in, | ||
type(psn_type), intent(in) | psn | ||
) |
subroutine update_w_elec | ( | type(grid_type), intent(in) | grid, |
type(psn_type), intent(inout) | psn, | ||
type(species_type) | sp, | ||
integer, intent(in) | iflag | ||
) |
subroutine update_w_ion | ( | type(grid_type), intent(in) | grid, |
type(species_type) | sp, | ||
integer, intent(in) | iflag | ||
) |