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, dr, dz, pi, po, bdi, bdo, over_w, special_mode, ishape, factor)
	sub-subroutine to get radial (psi) factor trapezoid or gaussian More...
subroutine	check_inside_source_region (special_mode, rgn, dr, dz, psi, bdi, bdo, rad_sqr, is_affected)
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)

Macro Definition Documentation

#define OMP_ATOMIC   !$omp atomic

Function/Subroutine Documentation

subroutine check_inside_source_region	(	integer, intent(in)	special_mode,
		integer, intent(in)	rgn,
		real (8), intent(in)	dr,
		real (8), intent(in)	dz,
		real (8), intent(in)	psi,
		real (8), intent(in)	bdi,
		real (8), intent(in)	bdo,
		real (8), intent(in)	rad_sqr,
		logical, intent(out)	is_affected
	)

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 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)	dr,
		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 caller graph for this function:

subroutine init_radiation

(

)

Here is the call graph for this function:

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