#include "adios_macro.h"

Include dependency graph for f0module.F90:

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)

Macro Definition Documentation

#define OMP_ATOMIC !$omp atomic

Function/Subroutine Documentation

subroutine add_f0_analytic ( integer, intent(in) stype )

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine add_f0_analytic_elec	(	type(grid_type)	grid,
		type(psn_type)	psn
	)

Here is the call graph for this function:

Here is the caller graph for this function:

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 )

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine df0g_near_wall_remove ( type(grid_type), intent(in) grid )

Here is the call graph for this function:

subroutine distribute_f0g	(	type(grid_type), intent(in)	grid,
		type(species_type), intent(inout)	sp
	)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine f0_nan_check ( character (len=*) str )

Here is the call graph for this function:

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 )

Here is the call graph for this function:

Here is the caller graph for this function:

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.

the Fourier components needed for RMP If op_mode==0, the output f will have the toroidal average and the RMP Fourier components. However, the Fourier components are suppressed with mask_3d in the private flux region and SOL close to the divertor plates. op_mode==1: Like op_mode==0, but the suppressed information is stored as Fourier components in f_3d_re and f_3d_im for later restoration. If op_mode==2, the output f will have only the toroidal average. The RMP Fourier components will be stored in f_3d_re and f_3d_im.

Parameters

[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

Here is the caller graph for this function:

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.

Parameters

[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

Here is the caller graph for this function:

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
	)

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine f_radiation ( type(grid_type) grid )

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine f_radiation::f_shift_from_f_heat_torque ( )

Here is the caller graph for this function:

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.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine init_radiation ( )

Here is the caller graph for this function:

logical function is_near_wall	(	type(grid_type), intent(in)	grid,
		integer	inode
	)

Here is the caller graph for this function:

real (kind=8) function my_sinc ( real (kind=8), intent(in) n )

subroutine f_radiation::power_loss ( real (8) E_change )

Here is the call graph for this function:

Here is the caller graph for this function:

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.

Parameters

[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)

Here is the caller graph for this function:

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 )

Here is the caller graph for this function:

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
	)