f0module.F90 File Reference

#include "adios_macro.h"

Include dependency graph for f0module.F90:

Data Types
module	f0_module

Macros
#define	OMP_ATOMIC   !$omp atomic

Functions/Subroutines
subroutine	add_f0_analytic (stype, f0_f)
subroutine	add_f0_analytic_elec (grid, psn, f0_f)
subroutine	f0_remove_negative (f0)
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	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, 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)

Macro Definition Documentation

#define OMP_ATOMIC   !$omp atomic

Function/Subroutine Documentation

subroutine add_f0_analytic	(	integer, intent(in)	stype,
		real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout)	f0_f
	)

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,
		real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout)	f0_f
	)

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,
		real (8), dimension(-f0_nvp:f0_nvp, f0_inode1:f0_inode2, f0_imu1:f0_imu2, ptl_isp:ptl_nsp), intent(inout)	f0_df0g
	)

Here is the call 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 call graph for this function:

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

Here is the call 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,
		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
	)

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

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

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

)

Here is the call graph for this function:

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
	)

Here is the caller graph for this function:

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

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

Here is the caller graph for this function: