tiny_functions.F90 File Reference

#include "petscversion.h"
#include <petsc/finclude/petscsnes.h>

Include dependency graph for tiny_functions.F90:

Functions/Subroutines
logical function	is_nan (a)
logical function	is_nan_or_inf (a)
subroutine	set_zero_for_nan (var)
real(8) function	max_mem_use ()
subroutine	remove_toroidal_average (n, x)
	Removes the toroidal average of a quantity of type real(8) that is global on a poloidal plane but local in the toroidal direction. More...
logical function	is_em_fluxavg (grid, r, z, psi)
	Determines whether a point is in an electromagnetic region for flux-surface averaged modes. This is now hardcoded such that zonal (00) electromagnetic modes are allowed only in the main plasma volume. More...
logical function	is_em_axisym (grid, r, z, psi)
	Determines whether a point is in an electromagnetic region for axisymmetric modes. More...
logical function	is_em_turb (grid, r, z, psi)
	Determines whether a point is in an electromagnetic region for non-axisymmetric modes. More...
subroutine	zero_out_wall (grid, var)

Function/Subroutine Documentation

logical function is_em_axisym	(	type(grid_type), intent(in)	grid,
		real (8), intent(in)	r,
		real (8), intent(in)	z,
		real (8), intent(in)	psi
	)

Determines whether a point is in an electromagnetic region for axisymmetric modes.

Parameters

[in]	grid	XGC grid object, type(grid_type)
[in]	r	Cylindrical radial coordinate R, real(8)
[in]	z	Cylindrical radial coordinate Z, real(8)
[in]	psi	Poloidal flux in Wb, real(8)

Here is the call graph for this function:

Here is the caller graph for this function:

logical function is_em_fluxavg	(	type(grid_type), intent(in)	grid,
		real (8), intent(in)	r,
		real (8), intent(in)	z,
		real (8), intent(in)	psi
	)

Determines whether a point is in an electromagnetic region for flux-surface averaged modes. This is now hardcoded such that zonal (00) electromagnetic modes are allowed only in the main plasma volume.

Parameters

[in]	grid	XGC grid object, type(grid_type)
[in]	r	Cylindrical radial coordinate R, real(8)
[in]	z	Cylindrical radial coordinate Z, real(8)
[in]	psi	Poloidal flux in Wb, real(8)

Here is the call graph for this function:

Here is the caller graph for this function:

logical function is_em_turb	(	type(grid_type), intent(in)	grid,
		real (8), intent(in)	r,
		real (8), intent(in)	z,
		real (8), intent(in)	psi
	)

Determines whether a point is in an electromagnetic region for non-axisymmetric modes.

Parameters

[in]	grid	XGC grid object, type(grid_type)
[in]	r	Cylindrical radial coordinate R, real(8)
[in]	z	Cylindrical radial coordinate Z, real(8)
[in]	psi	Poloidal flux in Wb, real(8)

Here is the call graph for this function:

Here is the caller graph for this function:

logical function is_nan

(

real (8)

a

)

Here is the caller graph for this function:

logical function is_nan_or_inf

(

real (8)

a

)

Here is the caller graph for this function:

real(8) function max_mem_use

(

)

subroutine remove_toroidal_average	(	integer, intent(in)	n,
		real (kind=8), dimension(n), intent(out)	x
	)

Removes the toroidal average of a quantity of type real(8) that is global on a poloidal plane but local in the toroidal direction.

Parameters

[in]	n	Number of poloidal planes
	input]	x Input quantity from which to remove its toroidal average

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine set_zero_for_nan

(

real (8), intent(inout)

var

)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine zero_out_wall	(	type(grid_type), intent(in)	grid,
		real (8), dimension(grid%nnode), intent(inout)	var
	)

Here is the caller graph for this function: