f0module.F90 File Reference

#include "adios_macro.h"
#include "mom_module.F90"

Include dependency graph for f0module.F90:

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)

Macro Definition Documentation

#define OMP_ATOMIC   !$omp atomic

Function/Subroutine Documentation

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

Here is the caller graph for this function: