#include "petscversion.h"
#include <petsc/finclude/petscsnes.h>
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) |
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) |
logical function is_nan |
( |
real (8) |
a | ) |
|
logical function is_nan_or_inf |
( |
real (8) |
a | ) |
|
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 |
subroutine set_zero_for_nan |
( |
real (8), intent(inout) |
var | ) |
|
subroutine zero_out_wall |
( |
type(grid_type), intent(in) |
grid, |
|
|
real (8), dimension(grid%nnode), intent(inout) |
var |
|
) |
| |
subroutine zero_out_wall_fort |
( |
real (8), dimension(grid_global%nnode), intent(inout) |
var | ) |
|